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: NONF 
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4 MODIFICATIONS A 
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®@QUES EQU X'0100' EQUATED VALUE FOR MDI STATEMENT 
@FIXT EQU X*O1018 EQUATED VALUE FOR NDI STATEMENT 
@STOP EQU X'0102! EQUATED VALUE FOR MDY STATEMENT 
@GOTO EQU X'0200! EQUATED VALUE FOR MDI STATEMENT 
@CALL EQU X'0201' EQUATED VALUE FOR MDI STATEMENT 
@INPT EQU X'0300! EQUATED VALUE FOR MDI STATEMENT 
@QUXX EQU X'0400! EQUATED VALUE FOR MDI STATEMENT 
@TUXX EQU X'Q500' FOQUATED VALUE FOR MDI STATEMENT 
@NVLD EQU X'0600! EQUATED VALUE FOR MDI STATEMENT 
EQ EQU X'O000' EQUATE FOR EQUAL 
NE EQU X'OOO4! EQUATE FOR NOT FQUAL 
HI EQU X'0008! EQUATE FOR HIGH 
NH EQU X'OOOC! EQUATE FOR NOT HIGH 
LO EQU X'0010' EQUATE FOR LOW 
NL EQU X'OO 14! EQUATE FOR NOT LOW 
LT EQU X'0010! EQUATE FOR LESS THA 
LE EQU X'OO0C'! EQUATE FOR LESS THAN OR EQUAL TO 
GT EQU X'O008' EQUATE FOR GREATER THAN 
GE EQU X'O0014! EQUATE FOR GREATER THAN OR EQUAL TO 
ON EQU X'0200° EQUATE FOR ON 
OF EQU X¥'0202! EQUATE FOR OFF 
MX EQU X'O204'8 EQUATE FOR MIXED 
EBC EQU X'O000! EQUATE FOR EBCDIC DATA TRANSFER 
HEX EQU X'0001' EQUATE FOR HEX DATA TRANSFER 

NL EQU X'0001' EQUATE FOR EXTERNAL REFERENCE 
INTRNL EQU X'Q000° EQUATE F INTERNAL REFERENCE 
PARM EQU X'0000' EQUATE INDICATING PARAMETER 
D EQU X' 0001! EQUATE FOR DEVICE ADDRESS 

EQU X'0002'! EQUATE FOR a ADDRESS 

DUMMY EQU X*Q0005 DUMMY eb 
PID EQU *-X'ODOO! ADDRESS MDI HEADER 
PTYPE EQU *-X'22CE* ADDRESS OF PROCESSOR TYPE FIELD 
STEPNUM EQU PID+xX*O0O0C! ADDRESS OF DECIMAL STEP NUMBER 
OPWD1 EQU PID+X'QOOE! ADDRESS OF OPTION WORD ONE 
OPWD2 EQU PID+X*'0010' ADDRESS OF OPTION WORD TWO 
TUSTATUS EQU PID+xX'0O018! ADDRESS OF TU STATUS WORD 
TUWORK EQU PID+tX"OOTA® ADDRESS OF TU WORK AREA 
TUPARM1 EQU PID+x'OO9A' ADDRESS OF PARM 1 POINTER 
TUPARM2 EQU PID+X*O0O9C! ADDRESS OF PARM 2 POINTER 
TUPARM3 EQU PID+xX'OO9E* ADDRESS OF PARM 3 POINTER 
TUPARM4 EQU PID+X'QOAO! ADDRESS OF PARM 4 POINTER 
TUPARM5 EQU PID+X'QOA2'* ADDRESS OF PARM 5 POINTER 
TUPARM6 EQU PID+X*OOA4* ADDRESS OF PARM 6 POINTER 
TUPARM? EQU PID+X"OQOA6'! ADDRESS OF PARM 7 POINTER 
TUPARM8 EQU PID+X*QOA8! ADDRESS OF PARM 8 POINTER 
TUPARNS EQU PID+X'OOAA' ADDRESS OF PARM 9 POINTER 
TUPARM10 EQU PID+X'QOAC' ADDRESS OF PARM 10 POINTER 
TUPARM11 EQU PID+X"QOAE® ADDRESS OF PARM 11 POINTER 
TUPARM12 EQU PID+tx"OOBO! ADDRESS OF PARN 12 POINTER 
TUPARM13 EQU PID+X'QOB2' ADDRESS OF PARM 13 POINTER 
TUPARM14 EQU PID+X*OOB4! ADDRESS OF PARM 14 POINTER 
TUPARM15 EQU PID+X 'OOB6! ADDRESS OF PARM 15 POINTER 
TUPARM16 EQU PID+X*OOBS8' ADDRESS OF PARM 16 POINTER 
TUMSGWTR EQU PID+X*OOBA' ADDRESS OF -> TO COMMON MSG WRITER 
TUUA EQU PID+X*OOQBE® ADDRESS OF UNIT ADDRESS IW EBC 
TUDA EQU PID+x'OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 
TUBUFF EQU PID+xX"00C2'* ADDRESS OF LAST USED WORD IN MAP 
TULAST EQU PID+X*OOC4! ADDRESS OF LAST ADDRESSABLE WORD 
TURESULN EQU PID+X*QOC6* ADDRESS OF LENGTH OF TU RESULTS 
TURESUL EQU PID+x'OOC8' ADDRESS OF TU RESULTS FIELD 
MAPNAME EQU PID+x'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 
TUINPT EQU PIDtx*O148! ADDRESS OF $INPT DATA 
PARMARA EQU PID+X'OQ16E! ADDRESS OF $INPT INPUT AREA 
@DCADD1 EQU PID+X*O1B8! MDI POINTER 
@DCADD2 EQU PID+X'O1BA® MDI POINTER 
SUPSTAT EQU PID+x'O1C4! ADDRESS OF MDI STATUS 
DEVADD EQU PID+xX*O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 
DEVADD1 EQU PID+X*O1DA' ADDRESS OF DEVICE ADDRESS TABLE 1 
DEVADD2 EQU PID+X*'O1E4! ADDRESS OF DEVICE ADDRESS TABLE 2 
DEVADD3 EQU PID+X"Q1EE® ADDRESS OF DEVICE ADDRESS TABLE 3 
DEVADD4 EQU PID+tX'O1FS8! ADDRESS OF DEVICE ADDRESS TABLE 4& 
DEVADD5S EQU PID+X'Q202' ADDRESS OF DEVICE ADDRESS TABLE 5 
DEVADD6 EQU PID+X*O20C'! ADDRESS IF DEVICE ADDRESS TABLE 6 
DEVADD?T FE ID+X"'0216! ADDRESS OF DEVICE ADDRESS TABLE 7 
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* * xx 
** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) ++ 
** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER ed 
** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR *% 
** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS ¥** 
** PURPOSE THEY ARE: -- 
** STEP AND RULE ADDRESS TABLE + 
sii THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND *% 
#0 THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * 
+ ENTRIES ARE AS FOLLOWES ** 
x A) AN ADDRESS OF THE RULE DC START AREA ied 
* B) THE STEP NUMBER IN DECIMAL + 
+s C) AN EQUATE FOR THE STEP NUMBER ES 
** RULE INFORMATION TABLE sd 
** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE ¥** 
a THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN x 
+ UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * 
‘ INDICATED WITH A X'0000' FOR THE RULE EQUATE. * 
sed SQUES *e 
+ A) RULE EQUATE X'0100! as 
*+ B) ADDRESS OF THE YES LEG RULE “ 
sibel $FIXT ** 
#4 a) RULE EQUATE X'0101! ** 
** B) ADDRESS OF MESSAGE TO PRINT ** 
# $STOP *% 
# A) RULE EQUATE X'0102! : #% 
ea B) ADDRESS OF MESSAGE + 
**K % 
*% $GOTO + 
*% A) RULE EQUATE X*0200! * 
4% B) ADDRESS OF MESSAGE ** 
ek C) NAME OF MAP TO GO TO ee 
*% D) ENTRY POTNT WITHIN GO TO MAP TO USE ie 
* E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE +4 
sed SCALL 4 
+ A) RULE EQUATE X'0201! + 
B) ADDRESS OF MESSAGE * 
te C) NAME OF MAP TO CALL #* 
#4 D) ENTRY POTNT WITHIN CALLED MAP TO USE ibe 
** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ae 
*% SINPT *% 
#% A) RULE EQUATE X'0300' ke 
sis B) INBUT TYPE (EBCDIC OR HEX) *% 
ies C) ADDRESS OF ULE ** 
*+ D) DESTINATION LOCATION OF INPUT DATA * & 
sed E) LENGTH OF INPUT DATA ** 
++ F) LOWER LIMIT OF GOOD DATA *% 
** G) HIGHER LIMIT OF GOOD DATA ae 
%& SQUXX * & 
x A) RULE EQUATE X"0400! +e 
sii B) ADDRESS OF YES LEG RULE *% 
tok C) TU BRANCH TO ADDRESS (INITIAL) * 
+ D) TU BRANCH TO ADDRESS (SECONDARY) at 
+ E) LENGTH OF PARAMETER IN BYT * 
ak F) PARAMETER TO PASS TO TU * 
G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER - 
** STUXX *% 
i A) RULE EQUATE x*'0500! #% 
#e B) ADDRESS OF YES LEG RULE bt 
sis C) TU BRANCH TO ADDRESS ** 
sis D) TYPE OF COMPARE TO MAKE ON RESULTS ** 
# x E) LENGTH OF COMPARED RESULTS sii 
x F) MASK FIELD FOR COMPARE *% 
+ G) LENGTH OF PARAMETER IN BYTES bd 
** H) PARAMETER TO PASS TO THE TU bd 
- I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ee 
*x $NVLD ** 
tk A) RULE EQUATE X*0600° bd 
** we 
** ENTRY POINT TABLE *e 
+ THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT ¥*# 
#% THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
+ REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES:  +* 
#% a) NAME OF ENTRY POINT *% 
*4 ADDRESS OF ENTRY POINT RULE TABLE ; 
- THE ENTRY POINT TABLE END IS INDICATED BY A xX*0000! - 
** MESSAGE TABLE *e 
#4 THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ** 
+s VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: sed 
+ A) EQUATE FOR START OF MESSAGE BLOCK ** 
sii B) NUMBER OF LINES OF MESSA ** 
*% C} LENGTH OF FOLLOWING TINE. ** 
*% D) FIRST LINE OF MESSAGE + 
sii E) LENGTH OF FOLLOWING LINE +* 
sid F) SECOND LINE OF MESSAGE ** 
+ G) ETC. ** 
x & * 
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OWER ON THE 4962,WAIT 16 SECONDS AND RUN ! 
AP7805 FOR MORE TESTING® 


OWER ON THE 4962,WATT 16 SECONDS AND RUN ! 
AP7820 FOR 
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PROGRAM CONTROL BITS 
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OIO CC_ ERROR TOCC 
NO INTERRUPT NOLIN 
INTERRUPT CC ERROR INCC 


MYSTERY INTERRUPT HAPPENED 
ERROR RECEIVED ON INTERRUPT 
EXPECTED INTERRUPT CONTROL BIT 
INTERRUPT RECEIVED CONTROL BIT 
EXPECTED eo gs RESPONSE 

HARD ERROR RETRIES 
INTERRUPT bu° WRONG Lee ERROR 


TEST UNIT RESULTS NO GOOD 
OTO CC ERROR 

NO INTERRUPT 

INTERRUPT CC ERROR 


COMMON BUFFER FOR PRINTING DATA 
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DATA 


JNTERROUPT LEVEL REQUESTED 
TEST UNIT RETURN ADRS TO MDI 
DEVICE ID 

ADRS OF DEVICE ADDRESS 

BIS CYLINDER ADDRESS 
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pS ESS SS SSS EES SESS TESS SELES STS SEL EEE TEL SSE LTT LESS PSS PL TESS ES RTE TES TE SE tS SS 


OUT FQU OUT SVC 

OUTIN EQU OUTIN SVC 

IDLE EQU IDLE SVC 

IDLE5S EQU IDLE SVC - INDEPENDENT OF CPU TYPE 
CHNGE CHANGE LEVEL SVC 

PGMCK ALLOW RETURN ON PROGRAM CHECK SVC 
EXIT EXIT SVC 

TERM TERMINATE SVC 

RESET RESET DEVICE SVC 

RID READ ID SVC 

START START CYCLE STEAL SVC 

sTcSS START CYCLE STEAL STATUS SVC 

PREP PREPARE DEVICE SVC 

READO READ WITH FUNCTION BIT 3 OFF SVC 
READ1 READ WITH FUNCTION BIT 3 ON SVC 
RSTAT READ STATUS SVC 

WRITO WRITE WITH FUNCTION BIT 3 OFF SVC 
WRIT1 WRITE WITH FUNCTION BIT 3 ON SVC 
CTRL CONTROL SVC 


RELEASE INTERRUPT CONTROL BLOCK SVC 
CONNECT INTERUPT CONTROL BLOCK SVC 
HALT ALL I/0 

REQUEST USE OF DCP DISK SVC 
RELEASE USE OF DCP DISK SVC 

HALT SVC 

EBCDIC TO HEX SVC (STRING 
HEX TO EBCDIC SVC 

ASCII TO HEX SVC TRING 
HEX TO ASCYI SVC (STRING a6 


io} 

eH 

Q 

to 
SHIRE oe dd ed et et od Od dt ot od od td ot 
MOHKO OOO OOO OOO tOOvO OOOO OOOO D000 Or} 
R#oqcacacanoacdcnaqaaceaqntaqgaccoaacacadc 
9 LOGI LIRIKINIDODIRIADAIADAD ceed ch eed ced dk ed ced ceed ed od LOO SJ OVEN EE LU KY) ed © 
HN mW ONDA UIE WA) OW MO JOULE WN O 


CALLING SEQUENCE 


ROUTINE WILL PREPARE THE I/O DEVICE TO INTERRUPT ON LEVEL ZERO 
AND CAUSE AN INTERRUPT. WHEN THE INTERRUPT OCCURS, THE LEVEL IS 
COMPARED TO THE EXPECTED LEVEL. THIS ITS DONE ON ALL LEVELS 

LEVEL THREE WILL NOT OCCUR BECAUSE THIS PROGRAM WILL BE RUNNING 
AS A BACKGROUND PROGRAM. 

CYCLE STEAL STATUS OP IS USED TO FORCE AN INTERRUPT. RESIDUAL 
ADDRESS AND STATUS WORD ARE ALSO CHECKED. 


PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
TURESUL, BIT Q]<<==<<-=<=>— NOT USED 


654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 ETOA EBCDIC TO ASCITY SVC (STR 
685 ATOE ASCII TO EBCDIC SVC (STRING 
686 READI READ DATA SETS FOR SMDI/SUTIL 
687 WRITI WRITE DATA SETS F 

689 eee ee PTT PTT TSS STS SS TTT eT TTT TS ST TT SCT I LST TSS SSCS TTS SSS S ST TT eS TSS TT eT Sy 
690 * * 
ee : EQUATES USED BY TU'S AS CONSTANTS pi 
693 ao RO ok lok ok iio gia ago i iok iotiokokok dak iotei de tototok dei state te tote ie de ak ak steak ate ate i a ae ik 
694 PLUS EQU Cr+ PLUS CHAR 

695 MINUS EQU Ct-—t MINUS CHAR 

697 ZERO EQU 0 

698 ONE EQU 1 

699 THO EQU 2 

700 THREE EQU 3 

701 FOUR FEQU 4 

702 FIVE EQU 5 

703 SIX EQU 6 

704 SEVEN EQU 7 

705 EIGHT EQU 8 

706 NINE EQU 9 

707 TEN EQU 10 

708 ELEVN EQU 11 11 

709 TWELV EQU 12 12 

710 THRIN EQU 13 13 

711 FIVIN EQU 15 15 

712 SIXTN EQU 16 16 

713 THRY2 EQU 32 32 

714 STXT4 EOQU 64 64 

715 ONE28 EQU 128 128 

716 TWOS6 EQU 256 256 

717 ONEK EQU 1024 1024 

718 TWOK EQU 2048 2048 

719 THREK Beg 3072 3072 

720 FOURK EQU 4096 4096 

722 M1 EQU -1 -1 

723 M2 EQU -2 -2 

724 M3 EQU -3 -3 

725 M4 EOU -4 -4 

VPM METIS SCS SSCS OSSCCSCSCS SSCS CSCS SS SCLC LCL SS SSS S SCL SS CT TTS TTS LP Se TT eT Tet ete tS 
728 * * 
729 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
Ue ; BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. : 
732 ROI ORI OR i ok ilk kokiok itokotedaioicaktioge kaka aka ota ae ii date oi akc ak 
733 BSO EQU 0 

734 BS1 EQU 1 

735 BS2 EQU 2 

736 BS3 EQU 3 

737 BS4Y EQU 4 

738 BS5 EQU 5 

739 BS6 EQU 6 

740 BS7 EQU 7 

741 BS8 EQU 8 

742 BSI EQU 9 

743 BS10 EQU 10 

744 BS11 EQU 11 

745 BS12 EQU 12 

746 BS13 EQU 13 

747 BS14 EQU 14 

748 BS15 EQU 15 

750 COPY 17801 01DECT6 

751 T7801 TUIT ,1 

7152 OR OA GIO IO III OO oii ack doko i atic 06 F EB7 64% 
753+* 

7544+*® TEST UNIT 

755+* 

728 . 4962 ATTACHMENT TEST 5/09/77 
758+* PURPOSE 

759+* 

760+* 

7614+* 

7162+* 

763+* 

764+* 

765+* 

7166+* 

767+* 

768+* 

7169+* 

770+* 

771+* 

772+* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
773+* “ TURESUL BIT 1------------ NOT USED 00288A 6801 299A 887 BNE TOL RESIDUAL ADDRESS ERROR 
7744+* i TURESUL BIT 2------------ FALSE STORE PROTECT CHECK 00288E 6808 18C4 888 MVW TULAST,RO LAST VALID STORAGE ADDRESS 
775+ ‘ TURESUL BIT 3------------ DCB SPEC CK NOT ON IN TSB 002892 7802 OOOE 889 SWI DEV LAST VALID STORAGE ADDR FOR CS 
1716+* : 002896 8828 18C2 393E 890 MVW TUBUFE CSDCB+14 FIRST AVAILABLE STOR LOCATION 
7T77+* : TURESUL BIT 4------------ DCB SPEC CHECK NOT REPORTED 00289C 4C64 891 TO1H fTBTS au XE SET EXPECTED ERROR 
778+* TURESUL BIT 5----------- STOR PROT NOT ON IN ISB 00289E 6E03 3BF6 892 BAL tocs CYCLE STEAL STATUS 
71794+% _ TURESUL BIT 6------------ STOR PROTECT CHECK NOT REPORTED OO28A2 29DA 893 DC Pap ERROR 
780+* f TURESUL BIT 7----------- INV STOR CK NOT ON IN ISB OO28A4 4CAT 894 TBTR TT gER) INTERRUPT ERROR? 
7814+* 2 OO28A6 1277 895 JON YES 
782+* ie TURESUL BIT 8------------ WRONG CONDITION CODE 0028A8 C934 393E 896 CW ee R1 CHECK RESIDUAL ADDRESS 
783+* - TURESUL BIT 9----------- INVAL STOR ADDRESS NOT DETECTED QOO28AC 1878 897 JNE TO 1M WRONG CYCLE STEAL ADDRESS 
T84+* o TURESUL BIT 10---------- WRONG CYCLE STEAL ADDRESS QOO28AE C824 393E 898 CW CSDCB+14,R0 END OF PHYSICAL STORAGE? 
785+* ‘ TURESUL BIT 11----------- RESIDUAL ADDRESS ERROR 0028B2 1704 899 JLLT tT01G YES 
786+* : 0028B4 4029 393E 0008 900 AWI 8,CSDCB+14 INCREMENT BUFFER ADDRESS 
71874+% : TURESUL BIT 12----------- NOT USED 0028BA 50F0 901 J T61h 
788+* 7 TURESUL BIT 13----------- OTO CC ERROR 0028BC 7806 FFFO 902 TO1G CWI X'*FFFO!',RO MAX STORAGE? 
ae ’ a a Oevn GOs eheon on Ge ain DOskes. dose 365e 0001 30u Ser 10 espcne14 TORCE INVALID STG ADDRESS 
- TURESUL BIT 15---------- - Cc TUS 
791+* : Ne eer ee ERR 0028C8 4Cé64 905 TBTS At XE ) SET EXPECTED ERROR 
192+* TURESUL BIT 16-31 ------ CYCLE STEAL STATUS FOR FAILING OP OO028CA 6E03 3BF6 906 BAL Toes, R6 CYCLE STEAL STATUS 
1934 : TURESUL BIT 32-47 ------ cc 32-39 OI0 CC,40-47 INT CC QO28CE 29DA 907 DC A (TO 1£R) ERROR 
coats : a em TBS | . BOs8D2 1087 309 Tore S0the NOpTNY STG" ADDR Nor REPORTED 
+ 5 -79 ------ ON WORD ERROR INDICATORS 
796+* 7 ( ) 0028D4 402F 2700 0702 910 CWI1 X'0702',SIOIN RE COND CODES 7 AND 2? 
1974+ OO28DA 1865 911 JNE TO1P NOTE ERROR 
798+* RETURN CONTROL 0028DC 402B 2702 0400 912 TWI X'O400' ,SISB INVALID STORAGE BIT ON IN ISB? 
7994+ 0028E2 1063 913 JOFF 1010 NO-E RROR 
800+* B TURTN* RETURN TO MDI SUPERVISOR QOO028E4 4020 393E 271E 914 TO1J MVA CSBUF,CSDCB+14 cs AD DDRESS 
801+* OO28EA C020 0232 915 MVB CPUID,RO DETERMINE TYPE OF PROCESSOR 
SIME SETS SESS SSCS SS SS SSS SS SC SSS LSS STC SSCS SSCS SL SSSCCSCCCSCL CS STS Te eT eS eT eT es OO28EE F025 916 CBI 37 ,R0 
002746 6F0D 2736 803+T7801 HV R7,TORTN SAVE RETURN ADDRESS O0O028F0 1826 917 JNE TO {Zz JUMP IF NOT 4955 
0O274A 4020 26FE 7801 804+ HVWI xX'7801',$TUID SAVE TU ID FOR DISPLAY 0028F2 4020 3930 2000 918 MVWI X'2000',CSDCB CS CONTROL WORD 
002750 4424 26F8 805+ HVA OPTN1,R4 SET UP POINTER ADRS IN R4 0028F8 6208 919 N Xx*08! ENABLE STORE PROTECT KEY 
002754 4020 2734 0020 eee 002 $ OOsBEe é53 3BF6 334 BEL feb es *) CYCLE STEAL STReUs TO CAUSE INTER 
MVWI x? O', SINTL RESET PREPARE 'I' BIT & CONNECT 
00275A 6E03 3CFE 808 BAL $CONC, R6 % os 002900 29DA 922 DC A (T01ER) ERROR 
00275E 29DA 809 pc A(TOTER) ¥ 002902 4CA1 923 TBTR (RG ER) INTERRUPT ERROR? 
002760 CA25 18C8 810 MVWZ TURESUL,R2 CLEAR RESULTS WORD 002904 125C 924 JON 01¢ YES-FLASE STORE PROTECT KEY 
002764 cCA25 18CA 811 MVWZ TURESUL#+2,R2 CLEAR RESULTS WORD 2 002906 4029 3930 0100 925 TO1K AWI X*0100",CSDCB SET OR INCREMENT KEYS 
002768 CA25 18CC 812 MVWZ TURESUL+4 ,R2 CLEAR RESULTS WORD 3 Q0290C 4C64 926 TBS 1a XE) SET EXPECTED ERROR 
00276C CA25 18CE 813 MVWZ TOURESUL+6,R2 CLEAR RESULTS WORD 4 00290E 6E03 3BF6 927 BAL LOCS ,R6 CYCLE STEAL STATUS 
002770 cCA25 18D0 B14 MVWZ TURESUL+8 ,R2 CLEAR RESULTS WORD 5 002912 29DA 928 DC A (TO 1£R) ERROR 
002774 4224 18C8 815 HVA TURESUL,R2 ADDRESS OF RESULTS 002914 4CA1 929 TBIR Ane ER) rat ae ERROR? 
002778 4224 18c8 816 HVA TURESUL, R2 ADDRESS OF RESULTS WORD 002916 1048 930 JOFF 01% STOR PROTECT NOT REPORTED 
00277C C020 0232 817 MVB CPUID,RO DETERMINE TYPE OF PROCESSOR 002918 402F 2700 0702 931 CWI X'0702!',SIOIN ARE cone CODES 7 AND 2? 
002780 F025 818 CBI 37.-RO *x 00291E 1843 932 JNE TOP NO-ERRO 
002782 1804 819 JNE TOT JUMP IF NOT 4955 002920 402B 2702 0200 933 TWI X'0200', $ISB STOR “PROT BIT NOT ON IN ISB? 
002784 4020 27A4 254c 820 MVWI X*254C",TO1T1+2 LOAD TIME CONSTANT FOR 2 SEC 002926 1045 934 JOFF T0190 NOo- 
MeL fs rete 27A4 OCOE 835 T01 VWI $7606 ' TO1T1+2 4953 903998 1888 ee ene 33¢ SNE TOIK. ee aL KEYS eine 
T M X'OCOE!' ,TO1TI+ LOAD TIME CONS FOR 2 SEC 
002792 4020 2734 FFF1 823 TO1T2 MVWL X*FFFY* S$INTL ET 0 TNTERROPT LEVEL FOR PREP 002930 6308 937 DIS X'O8! DISABLE STORAGE PROTECT 
333732 235 Get 3h IR TOBE TE ng ate 9293 403) 3330 2992 «938 avAT ZsguQCcgGepet, —«SESTORE CS DCE 
MVA ITST14#10,R SETUP RETURN ADDRESS IF ERROR + 
002740 6008 826 SVC RESET M 00293E 4029 393E 0001 940 T01Z AWI 1 gcSDCB+ 14 FORCE DCB SPEC CHECK 
0027A2 4024 0000 827 TO1T1 MVHI '0000!,R0 TIME OUT 2 SEC 002944 4C64 941 TBIS (Ra SET EXPECTED ERROR 
002786 6002 828 ITSTS SVC IDLE # 002946 6803 3BF6 942 BAL Rote. CYCLE STEAL STATUS 
0027A8 BBFE 839 Jc?  ITTST5,RO os 00294A 29DA 943 DC A (Tove) ERROR 
OO27AA 4724 3CEA 830 MVA IOBLK,R7 RESET DEVICE 00294C 4CAI 944 TBTR A 4 INTERRUPT ERRO 
OO27AE 6008 831 SVC RESET * 00294E 1033 945 JOFF bi. NO,DCB SPEC Ba ReK NOT REPORTED 
0027B0 4724 3CEA 832 MVA TOBLK,R7 READ DEVICE ID 002950 4O02F 2700 0702 946 CWI X'0702!,$IOIN ARE COND CODES 7 AND 2? 
0027B4 4624 27E0 833 MVA ITST14+10,R6 SETUP RETURN ADDRESS IF ERROR 002956 1827 947 JNE TOP NO-ERROR 
0027B8 6009 834 TOID svc RID * 002958 402B 2702 1000 948 TWI X'1000',SISB DCB SPEC CHECK BIT ON IN ISB? 
0027BA 402F 3CF4 OOBA 835 CWI X*OOBAt,IOMOD+4 VERIFY DEVICE ID-DUT,FIXED HEADS 00295E 102D 949 JOFF TO1W NO-ERROR 
bebo hee 3cF4U OOAA net fe ye. ' 4 OOsae5 BOo8 2720 18CA 324 TO1C qVW EaeED TURESUL+2 CYCLE STEAL STATUS FOR FAILING OP 
CWI X AA* ,LOMOD+ VERIFY DEVICE ID-DUT,NO FIXED HEA ‘ 
BB37eR 1986 sceu coca «$38 Sr EPR Edan. : 883885 Bae 3709 1ace 35g Rte STCENGGUEEGUEg® «© SQ4DETTON copes 
CHI X*OOCA*, TOMOD+4 VERIF - + 
0027D0 1002 840 Se. Resgan PR Pee ACE SP Eee Ge Bree 002974 8828 26FC 18D0 954 MVW  OPTNS, TURESUL+8 OPTION WORD 3. (CONDITION CODES) 
0027D2 6802 2992 844 B TO 1A DEVICE ID ERROR 00297A 6308 955 T1END DIS x'os? DISABLE hee PROTE 
0027D6 4029 2734 0010 842 ITST1 AWI X'10',SINTL ADV INTR LEVEL, STARTING AT 0 00297C 4020 3930 2000 956 MVWI X'2000',CSDCB RESTORE VALID CS DCB 
0027DC 6£03 3D16 843 BAL $CONP,R6 CONNECT DEV CNfL BLOCK AND PREP DEV 002982 4020 393E 271E 957 MVA CSBUF,CSDCB+14 * 
QO27EO0 29DA B44 DC A(TO1ER) ERROR 002988 4724 3CEA 958 MVA IOBLK,R7 RESET 
0027E2 4020 3A9C 0008 845 MVWI 8,CEDAT SET DIAG MODE 1 AND 4 00298C 6008 959 SVC RESET * 
002728 6803 3A34 B46 BAL C£OP1,R6 * 960 TXIT 
0OO27EC 29DA 847 Dc A (TO1ER) ERROR 00298E 6802 3D82 961+ B SCONX RETURN TO MDI CONTROLLER 
QOO27EE UC64 848 ITST3 TBTS Ai xe} SET EXPECTED ERROR D6 DH RH Hk KM MK Me He He He he ae He ee he 3h hee He che he 9 hee ah eae ah a a ae he ac ah ae ee ae a a he oe ah ac ate a ae ae ah af ie ae ate ae ae fe ake ae ae hc akc 
0027F0 6503 3BF6 849 BAL TOES , RE CYCLE STEAL STATUS TO CAUSE INIER 963 * 
OO27F4 29DA 850 DC A (TO 1 ER) ERROR 002992 4A4E 964 TO1A TBTS R2,14) DEVICE ID MISCOMPARE 
0027F6 4CA{ 851 TBTR { 4, ER) INTERRUPT ERROR? 002994 SOE6 965 J 1 EXIT 
0027F8 6A00 2996 852 BON 018 YES 002996 4AU4F 966 TO01B TBTS {R2 15) CYCLE STEAL STATUS OR SEEK ERROR 
0027FC 802B 3990 2702 853 CB ZEROO, $ISB CHECK ISB(0-7) FOR ZEROS 002998 SOE4 967 J 01€ EXIT 
002802 6801 2996 854 BNE T0 1B ERROR 00299A 4A4B 968 TO1L MTBTS {R2 14) RESIDUAL ADDRESS ERROR 
002806 802B 19D0 2703 855 CB DEVADD,$ISB+1 CHECK DEVICF ADDRESS IN ISB 00299C 50E2 969 J 01€ EXIT 
00280C 6801 2996 856 BNE T0 1B ERROR 00299F GAA 970 TO1M TBTS {R2 10) WRONG CYCLE STEAL ADDRESS 
002810 402B 2720 0001 857 TWI 1,CSTL2 CHECK CS STATS WORD 1 FOR NOT RDY 0029A0 5OEO 971 J 01¢ EXIT 
002816 6800 2996 858 BOFF T61B ERROR 0029A2 4A4IO 972 TO1N TBTS (R2 9) INVALID STOR ADDR NOT DETECTED 
00281A 4O2F 2724 0000 859 cwL 0,cSTL4 CHECK CS STATS WORD 3 FOR ZEROS O0029A4 50DE 973 J 07€ xXIT 
002820 6801 2996 860 BNE TO 1B ERROR 0029A6 4AU8 974 TO1P TBTS {R2 8) WRONG CONDITION CODE 
002824 402F 2734 0021 861 CWI 8 =X'21',$INTL HAS INTR LEVEL COME DOWN TO 2 0029A8 SODC 975 o41€ EXIT 
00282A 18D5 862 JNE ITST1 * NO, BCH AND CONTINUE TEST OO29AA 4A4T 976 TO01Q fTBTS Ane 7) INV STOR BIT NOT ON IN ISB 
00282C 4020 3920 8005 863 MVHI xX*8005',SKDCB SEEK CONTROL WORD - CHAINED TO XIOCcs QO29AC SODA 977 J o1€ EXIT 
002832 4020 3922 0000 864 MVWI 0,SKDCB42 SEEK NO OP QOO29AE 4Au6 978 T01X TBTS (R2 6) STOR PROTECT NOT DETECTED 
002838 4020 3928 0000 865 MVWI O/’SKDCB46 SELECT HEAD 0029B0 50D8 979 J 01¢ IT 
00283E 4020 392A 3930 866 MVA CSDCB,SKDCB+10 CHAINING ADDRESS 0029B2 4A45 980 TO1U TBTS Ape 5) STOR PROT NOT ON IN ISB 
002844 4020 3A9C OOOA 867 MVWI X'OOOK?,CEDAT SET DIAG MODE 2 & 4 TURN ON INTERNAL 0029B4 50D6 981 J 01€ EXIT 
00284A 6803 3A34 868 BAL CEOP1,R6 * READY TO ALLOW CYCLE STEALS Q029B6 4aAS4 982 TO1V TBTS ABZ 4) DCB SPEC CHECK NOT REPORTED 
OO284E 2996 869 DC A (TO1B x 0029B8 50D4 983 J o1€ EX 
002850 4c64 870 TBTS { “u,XE SET EXPECTED ERROR QO29BA 4A43 age TO1W TBTS {R2 3) DCB SPEC CK NOT ON IN ISB 
002852 6803 3BIC 871 BA SEEK, R6 SEEK NO-OP 0029BC 50D2 98 o1c EXIT 
002856 2996 872 DC A (70 1B ERROR QOO29BE 4A4?2 986 TO1Y fTBTS (Bz 2) FALSE STORE PROTECT CHECK 
002858 4CA1 873 TBTR X 4,ER INTERRUPT ERROR? 0029CO0 50D0 987 J oi EXIT 
00285A 6800 29B6 874 BOFF 01¢ NO-DCB SPEC CHECK NOT DETECTED 0029C2 CA25 18C8 988 TO1R MVWZ TURESUL,R2 CLEAR RESULTS WORD 
00285E 402B 2702 1000 875 THI X'1000',$ISB DCB SPEC CHECK? 0029C6 CA25 18CA 989 NVWZ TURESUL42,R2 CLEAR RESULTS WORD 2 
002864 6800 29BA 876 BOFF TOW NO FRROR 0029CA CA25 18CC 990 MVWZ TURFSUL+4 ,R2 CLEAR RESULTS WORD 3 
002868 4020 3920 0005 877 MVWI X*'0005',SKDCB RESTORE SEEK CONTROL WORD . OO2Z9CE CA25 18CE 991 MVWZ TURESUL+6,R2 CLEAR RESULTS WORD 4& 
00286E 6£8£03 29DE 878 BAL SCKSK r6 SEEK CHAINED TO SEEK 0029D2 CA25 18D0 992 MVWZ TURESUL+t8 "R2 CLEAR RESULTS WORD 5 
002872 2996 879 DC (70 16) 0029D6 4224 18C8 993 MVA TURESUL,R2 ADDRESS OF RESULTS 
002874 4124 392D 880 MVA SKDCB+13,R1 SHOULD BE RESIDULA ADDRESS QOO29DA 4AU4D 994 TOI1ER TBTS Ane 13) oro cc ERROR 
002878 4c64 881 TBTS cy XE) SET EXPECTED ERROR 0029DC 50C2 995 J 01¢ EXIT 
00287A 6803 3BF6 882 BAL TOES, R6 CYCLE STEAL STATUS 996 * 
00287E 29DA 883 pc A (TO 1ER) 0029DE 4020 3CEE 29E8 997 $CKSK MVA CHSK, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002880 4CA1 884 TBIR { 4 ER) INTERRUPT ERROR? Q029E4 6802 3BEC 998 / 8B xIO r 
002882 6A00 2996 885 BON 016 YES 999 * 
002886 C924 271E 886 CW CSTL1,R1 CHECK RESIDUAL ADDRESS 0029E8 8005 1000 CHSK DC x*8005? SEEK CONTROL WORD - CHAINNING 
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noeaee one roe pc Teen. NO OP 002ACO 4020 390C 0006 1116 : MVWI x'0006',RSDCBt12 RESTORE VALID BYTE COUNT 
DC X 
0029FE 0000 1003 DC X¥*0000' 002AC6 4020 38D4 0000 1118 MVWI X10000', DGDCB+4 RESTORE VALID SECTOR # 
0029F0 0000 1004 Dc x¥*0000! OO2ACC 4020 38DC 0006 1119 MVWI xX'0006',DGDCBt12 SETUP INVALID BYTE COUNT 
0029F2 3920 1005 DC A (SKDCB) CHAIN ADDRESS 1120 ERTST 7,S5DIAG USE SPECIAL XIO ROUTINE 
0029F4U 0000 1006 Dc x'oo0oor 002AD2 4020 3EA6 3BE4 1121+ MVA $HTAG, ERTST+4 SET UP ADDRESS FOR I/0 COMMAN 
1007 * 0OO2AD8 6A03 3EA2 1122+ BAL ERTST,R2 USE COMMON ERROR TESTING SUBROUTINE 
1009 COPY T7804 01DEC76 OO2ADC OOO0D 1123+ Dc A 13) DISP FROM TOP OF DCB IN BYTES 
1010 T7804 TUIT $ERRS OO2ADE 2B3A 1124 DC A (TO4G) ERROR ADDRESS 
LOU er etree aa eer ern noe ete ee Tenn g anes hea peepee tenor enl a ee OO2AEO 4020 38DC vee ‘ MVWI X'0100',DGDCBt12 RESTORE VALID BYTE COUNT 
+ 
1013+* TEST UNIT OO2AE6 4020 3960 2009 1127 MVWI xX*2009",RDDCB READ CONTROL WORD 
1014+* OO2AEC 4020 396C 0002 1128 MVWI X*0002' RDDCB+12 RESTORE VALID BYTE COUNT 
aes THIS ROUTINE WILL FORCE ERRORS THAT THE ATTACHMENT WILL REJECT OO2ZAF2 4020 396E 3FF9 Me BTR ee X*3FFQ",RDDCB+ 1h Spa ee DE ee i ae 
1017+* PURPOSE OO2ZAF8 4020 3EA6 52 1131+ MVA $RD$S,ERTST+4 SET UP ADDRESS FOR I/0 COMMAND 
1018+* OO2AFE 6A03 3EA2 1132+ BAL ERTST,R2 USE COMMON ERROR TESTING SUBROUTINE 
1019+* 5/05/77 002B02 OOOF 1133+ Dc A 15) DISP FROM TOP OF DCB IN BYTE 
1020+#* CALLING SEQUENCE 002B04 2B3E 1134 DC A (TO H) ERROR ADDRESS 
1021+* 002B06 4020 38DC 0100 1135 MVWI xX*0100' ,DGDCB+t12 RESTORE VALID BYTE COUNT 
1022+* THE FOLLOWING ERRORS ARE FORCED: 002B0C 8828 18C2 396E 1136 MV W TUBUFF RDDCB+14 RESTORE VALID DATA ADDRESS 
1023+* . 002B12 4029 396E 0500 1137 AWI X'0500! RDDCB+14 2 
1024+* 0. INVALID COMMAND 1138 * 
1025+* 13 INVALID SECTOR NUMBER (RD OP) 002B18 4724 3CEA 1139 TO4J MVA IOBLK,R7 RESET 
1026+* ; INVALID SECTOR NUMBER (RD SECTOR ID) 002B1cC 6008 1140 SVC RESET * 
1027+* i INVALID SECTOR NUMBER (DIAG OP) 1141 TXIT 
1028+* 7 ODD BYTE COUNT OO2B1E 6802 3D82 1142+ B S$CONX RETURN TO MDI CONTROLLER 
ee 5. INVALID BYTE COUNT eae SECTOR ID) a aaa a a a 
4 6. INVALID BYTE COUNT (START DIAG 
1031+* on ODD DATA ADDRESS 002B22 4840 1145 TOYA TBTS RO,0) INVALID COMMAND 
1032+* . 002B24 SOF9 1146 J 04g 
1033+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 002B26 4841 1147 TO4B TBS RO, 1) INVALID SECTOR # (RD OP) 
1034+* é TURESUL BIT O--INVALID COMMAND 002B28 SOF? 1148 J 04g 
1035+* : TURESUL BIT 1--INVALID SECTOR # (RD OP) OO2B2A 4842 1149 TO4C TBTS {20 2) INVALID SECTOR # (RD SECTOR ID) 
1036+* is TURESUL BIT 2--INVALID SECTOR # {RD SECTOR ID) QO02B2C 50F5 1150 J O45 
1037+* . TURESUL BIT 3--INVALID SECTOR # (DIAG OP) OO2B2E 4843 1151 TO4D TBTS A 3) INVALID SECTOR # (DIAG OP) 
10384+* ; TURESUL BIT 4--ODD BYTE COUNT 002B30 50F3 1152 J O45 
1039+* ‘ TURESUL BIT 5--INVALID BYTE COUNT (RD SECTOR TD) 002B32 4844 1153 TOYE TBTS ARG 4) ODD BYTE COUNT 
1040+* . TURESUL BIT 6--INVALID BYTE COUNT (START ID) 002B34 50F1 1154 J O45 
1041+* 2 TURESUL BIT 7--ODD DATA ADDRESS 002B36 4845 1155 TO4SF TBTS (RO, 5) INVALID BYTE COUNT (RD SECTOR ID) 
1042+4+* a TURESUL BIT 8--OIO ERROP 002B38 5SOEF 1156 J O45 
1043+* is TURESUL BIT 9----------- NOT USED OO2B3A 4846 1157 TO4G TBTS 80 6) INVALID BYTE COUNT (START DIAG) 
10444* : TURESUL BIT 10---------- NOT USFD 002B3C 50ED 1158 J O45 
1045+* ‘ TURESUL BIT 11----------- NOT USED OO2B3E 4847 1159 TO4H TBTS ca 7) ODD DATA ADDRESS 
10464+* i TURESUL BIT 12----------- NOT USED 002B40 5OEB 1160 3 O45 
1047+%* is TURESUL BIT 13----------- NOT USED OO2B42 4848 1161 TO4YK TBTS Are 8) OIO ERROR 
1048+* 7 TURESUL BIT 14---------- NOT USED OO2B44 SOE9 1162 J O45 
1049+* é TURESUL BIT 15---------- NOT USED 1163 * 
1050+* 1164 * 
1051+* 1165 * 
1052+* RETURN CONTROL 1166 COPY 17806 01DEC76 
1053+* 1167 T7806 TUIT TOGER 
1054+% B TURTNX RETURN TO MDI SUPERVISOR ee et renee ta Sere eR els Rp teeta rae ence nee wees Ferns VOOR EEA Te 
aa ea i ea cdl aa 11704* TEST UNIT 
0029F6 6F0D 2736 1057+T7804 MVW SAVE RETURN ADDRESS 1171+* 
OO29FA 4020 26FE 7804 1058+ MVWI Rise gna. STUID SAVE TU ID FOR DISPLAY 1172+ DATA BUFFER WRAP TEST 5/05/77 
OO2A00 4424 26F8 1059+ MVA OPTN1, R4 SET UP POINTER ADRS IN R4 1173+* 
002A04 6803 3CFE 1060+ BAL $CON CLEAR DEV DEP STG AND CONNECT I/0 BL 1174+* PURPOSE 
002A08 3D32 1061s DC A (SERR ERROR ADRS FOR INVALID PREP ee 
+ 
OO2A0A 4020 3A9C OOOA 1063 MVWI xX'OOOA' ,CEDAT TURN ON READY, MODE 1&4 1177+* CALLING SEQUENCE 
002A10 6E03 3A34 1064 BAL CEOP1,R6 * 1178+* 
002A14 2B42 1065 pc x (704k) * 1179+* THIS ROUTINE WILL VERIFY THE DATA BUFFER IN THE 4962 ATTACHMENT 
002A16 CA25 18C8 1066 MVWZ TURESUL,R2 CLEAR RESULTS WORD 1180+* CARD BY TURNING ON DIAGNOSTIC MODE AND RUNNING BUFFER WRAP TEST. 
OO2A1A 4024 18C8 1067 MVA TURESUL, RO ADDRESS OF RESULTS 1181+* 3 
OO2A1E 4020 3960 2006 1068 MVWI X*2006',RDDCB INVALID READ COMMAND 1182+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
1069 ERTST 1,$RD$ USE SPECIAL XIO ROUTINE 11834+* ° TURESUL BIT 0------------ OT USED 
OO2A24 4020 3EA6 1070+ MVA $hD$,ERTST+4 SFT UP ADDRESS FOR I/O COMMAND 1184+* 2 TURESUL BIT 1------------ NOT USED 
0O02A2A 6A03 3EA2 1071+ BAL ERTS?,R2 USE COMMON ERROR TESTING SUBROUTINE 1185+ " TURESUL BIT 2------------ NOT USED 
OO2A2E 0001 1072+ Dc A i) DISP FROM TOP OF DCB IN BYTES 1186+* 5 TURESUL BIT 3------------ NOT USED 
002A30 2B22 1073 DC A (TOGA) ERROR ADDRESS 1187+* : 
1074 * 1188+* e TURESUL BIT 4------------ NOT USED 
002A32 4020 1075 MVWI xX'2009',RDDCB READ CONTROL WORD 1189+* ‘ TURESUL BIT 5----------- NOT USED 
002A38 4020 1076 MVWI x'oOd4cC!, "PDDCR+8 SETUP INVALID SECTOR # 1190+* a TURESUL BIT 6-7---3-------- NOT USED 
OO2ZA3E 4020 1077 MVWI X'0002" ;RDDCB+ 12 SETUP VALID BYTE COUNT 1191+* ‘i TURESUL BIT 7----------- NOT USED 
1078 ERTST 5,$RDS$ USE SPECIAL XIO ROUTINE 1192+* \e 
OO2A44 4020 1079+ MVA SRDS, ERTST+4 SET UP ADDRESS FOR I/O COMMAND 1193+* é TURESUL BIT 8------------ NOT USED 
OO2A4A 6A03 1080+ BAL ERTS, R2 USE COMMON ERROR TESTING SUBROUTINE 1194+* 'e TURESUL BIT 9----------- NOT USED 
OO2A4E 0009 1081+ DC a (3) \DISP FROM TOP OF DCB IN BYTES 1195+* : TURESUL BIT 10---------- NOT USED 
002A50 2826 1982 r DC A (TO4B) ERROR ADDRESS Sas . TURESUL BIT 11----------- NOT DIAGNOSTIC MODE 
002A52 4020 1084 MVWI X'3C 00" ,RSDCB+4 SETUP INVALID SEC NUM 1198+* 5 TURESUL BIT 12----------- NOT USED 
1085 ERTST 3,5R USE SPECIAL XIO ROUTINE 1199+ é TURESUL BIT 13----------- OIO CC ERROR 
002A58 4020 1086+ MVA ShDED. ERTST+4 SET UP ADDRESS FOR I/O COMMAND 1200+* . TURESUL BIT 14---------- WRAP TEST FAILED 
OO2A5E 6A03 1087+ BAL ERTST,R2 USE COMMON ERROR TESTING SUBROUTINE 1201+%* . TURESUL: BLT 15<-=<=+=<== NO INTERRUPT RECEIVED 
002A62 0005 1088+ DC (3) DISP FROM TOP OF DCB IN BYTES 1202+* : 
OO2A64 2B2A 1086 : pc A (TO4C) ERROR ADDRESS Te es é TURESUL BIg ica) ------ Sree ee org Ce hockd Tar te oP 
002A66 4020 1091 MVWI xX'3C00',DGDCBt4 SETUP INVALID SECTOR # 1205+* . TURESUL BIT 48-63 ------ IBS 
002A6C 4020 1092 MVWI X'0100",DGDCB412 SETUP VALID BYTE COUNT 1206+* . TURESUL BIT 64-79 ~----- OPTION WORD 3 (ERROR INDICATORS) 
1093 ERTST 3,$DIAG. USE SPECIAL XIO ROUTINE 1207+* a 
002A72 4020 1094+ MVA SOTAG, ERTST+4 SFT UP ADDRESS FOR TI/0 COMMAND 1208+* 
002A78 6A03 1095+ BAL ERTST, R2 USE COMMON ERROR TESTING SOBROUTTWE 1209+* RETURN CONTROL 
002A7C 0005 109 6+ DC ae) DISP FROM TOP OF DCB IN BYTES 1210+* 
OO2A7E 2B2E 102) P DC A (TO4D) ERROR ADDRESS a ae B TURTN* RETURN TO MDI SUPERVISOR 
002A80 4020 1099 MVWI X*2009', RDDCB READ CONTROL WORD T2113 + RR HK RK RK KK KK ek kk Kk tak oko kk ke kk kkk kok kkk tok ke kok ake teak kok ke tok kook ak ak ick oe 
002A86 4020 1100 MVWI X'OO3B',RDDCB+8 RESTORE VALID SECTOR # 002B46 6FOD 2736 1214+T7806 MNVW R7,TURTN SAVE RETURN ADDRESS 
OO2A8C 4020 1101 MVWI xX'0003! *RDDCB+ 12 SETUP INVALID BYTE COUNT OO2B4UA 4020 26FE 7806 1215+ MVWI x'47806! S$TUID SAVE TU ID FOR DISPLAY 
1102 ERTST 7,$RD$ USE SPFCTAL XTO ROUTINE 002B50 4424 26F8 1216+ MVA OPTN1,R4 SET UP POINTER ADRS IN RY 
002A92 4020 1103+ MVA $kD$, ERTST4+4 SET UP ADDRESS FOR I/0 COMMAND 002B54 6E03 3CFE 1217+ BAL SCONC CLEAR DEV DEP STG AND CONNECT I/O BL 
002A98 6A03 11044 BAL  ERTS?, R2 USE COMMON ERROR TESTING SUBROUTINE 002B58 2BEA 1218+ DC A (TO6ER) ERROR ADRS FOR INVALID PREP 
002A9C 0OO00D 1105+ DC A 13) DISP FROM TOP OF DCB IN BYTES 1219+* 
OO2A9E 2B32 1106 pc A (TOYE) ERROR ADDRESS Q0O2B5A CA25 18C8 1220 MVWZ TURESUL,R2 CLEAR RESULTS WORD 
1107 * 002B5E CA25 18CA 1221 MVWZ2 TURESUL+2,R2 CLEAR RESULTS WORD 2 
002AA0 4020 1108 MVWI X*200A",RSDCB READ SECTOR ID CONTROL WORD 002B62 CA25 18CC 1222 MVW2 TURESUL+4, R2 CLEAR RESULTS WORD 3 
OO2ZAA6 4020 1109 MVWI X'0000!,RSDCBtY4 VALIDATE SECTOR # 002B66 CA25 18CE 1223 MVWZ TURESUL46,R2 CLEAR RESULTS WORD 4 
OO2AAC 4020 1110 MVWI X'O0008',RSDCB+12 SETUP INVALID BYTE COUNT OO2B6A CA25 18D0 1224 MVWZ TORESUL+8,R2 CLEAR RFSULTS WORD 5 
1111 ERTST 7,$RDID USE SPECTAL XIO ROUTINE OO2B6E 4224 18C8 1225 MVA TURESUL, R2 ADDRESS OF RESULTS 
002AB2 4020 1112+ MVA $RDID,ERTST+4 SET UP ADDRESS FOR I/O COMMAND OO2B72 4C67 1226 TBTS ie eo TURN ON NO INTER MODE INDICATOR 
00O2AB8 6A03 11134 BAL FRIST, R2 USE COMMON ERROR TESTING SUBROUTINE 002B74 4724 3CEA 1227 MVA OBLK,R7 ISSUE DEVICE RESET 
OO2ZABC 000D 11144 DC A 13) DISP FROM TOP OF DCB IN BYTES 002B78 6008 1228 SVC RESET * 
OO2ABE 2B36 1115 DC A (TOUF) ERROR ADDRESS OO2B7A 4020 3A9C 0000 1229 MVWI O,CEDAT SET DIAGNOSTIC MODE 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1917 * BIT 02 - SET WRITE CLOCK 2032 * 
1918 * BIT 03 - SET READ CLOCK 2033 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 
1921 * BIT 06 - STANDARD READ DATA 2036 * LOGICAL- OE, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14, 32, 
1922 ‘ BI? 07 : SPEED PULSE 2037 * PHYSICAL 1C, 1D, 12, 1F, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
- ¥ 
193¢ * Brt 14 = BLO OUT OF CoNee SOHG : PHYSICAL 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, 
1927 * BIT 12 - RST RD/WRT CLOCK 2042 * LOGICAL 1C, 3A, 1D, 3B, X 
1889 ¢ 0 BEE 13. = neser prac 3348 
- DIAGNOSTIC MODE 
Le ie 2046 * CALLING SEQUENCE 
1932 32s a aR IOI IG ICO AICI IG Gio iota itok 2047 * 
1933 : 2048 : BAL CONVT,R6 
003A20 6E0OD 2704 1935 WRAP MVW  R6,LSTIO SAVE ADDRESS OF LAST I0 2050 * RETURN 
003A24 8028 19D0 3AA3 1936 MVB  DEVADD,IDCBRAP+1 LOAD DEVICE ADDRESS IN IDCB 2051 * 
OO3A2A 680C 3AA2 1937 TO IDCBRAP READ SENSE WORD 1 2052 * B = (TT304+2) 
OO3A2E 6F05 3A84 1938 BNCC 7,CCERR CHECK COND CODE 20353 * 
003A 32 5601 1939 : BXS (RE , 2) RETURN TO CALLER ane Me eae ee ee ee 
003438 8028 19D0 3A9B 1942 MVB  DEVADD,IDCBCE1+1 LOAD DEVICE ADDRESS IN, IDCB OO3ACE 802B 3990 39AF 2057 CB 22800, LGSEC+1 CK FOR LOG # ZERO 
OO3A3E 680C 3A9A 1943 TO IDCBCE 4 SET DIAGNOSTIC MODE OO3AD4 100D 2058 JE BCH IF LOG # IS ZERO 
OO3A42 6F05 3A84 1944 BNCC 7,CCERR CHECK COND CODE OO3AD6 802B 39AF 39B2 2059 CB LESEc+ 1,CB29 COMP LOG TO 29 
s03nKs $601 isis, BES” 8,3) fanbi 90 CHLLER Teta ae Te A leila 
003A48 6EOD 2704 1947 CEOP2 MVW R6,LSTIO SAVE ADDRESS OF LAST IO OO3AE2 E821 39AF 2062 MB LGSEC+1,RO LOG SECTOR # TINES 2 
OO3A4C 8028 19D0 3A9F 1948 MVB DEVADD,IDCBCE2+1 LOAD DEVICE ADDRESS IN IDCB OO03AE6 7802 003C 2063 SHI 60,R0 LOG SEC TINES 2 MINUS 60 
003A52 680cC 3A9E 1949 To IDCBCES WRITE DIAG CLOCK STEP OO3AEA C028 39B1 2064 MVB RO,PHYSC#1 PHYSICAL SECTOR NUMBER 
003356 6F05 3A84 1950 BNCC 7,CCERR CHECK COND CODE OO3AEE 500C 2065 J TT304 RETURN TO CALLER 
QOO3ASA 5601 bee . BXs (R6,2) RETURN TO CALLER ete es 8028 39B4 39B1 Z066 TT 303 ie BT3O8 ePHYSC+1 SUEReH CE thee # 59 
RN TO CALLER 
1ges * OO3AF8 4024 0002 2068 RTTO1 MVWI LOAD MULTIPLIER 
003A5C 6E0D 2704 1954 SENS1 MVW  R6,LSTIO SAVE ADDRESS OF LAST I0 OO3Z3AFC £821 39AF 2069 MB LéSEc+1, RO LOG SECTOR # TIMES 2 
003860 8028 19D0 3a97 1955 MVB  DEVADD,IDCB1+1 LOAD DEVICE ADDRESS IN IDCB 003B00 7802 0001 2070 SWI SUBTRACT ONE 
003A66 680cC 3A96 1956 Io T READ SENSE WORD 2 OO3B04 C028 39B1 2071 MVB Roe gPHYSC+1 LOAD PHYSICAL SECTOR # 
OO3A6A 6F05 3A84 1957 BNCC 7,CCERR CHECK COND CODE 003B08 6802 0000 2072 TT304 B RETURN TO CALLER 
OO3A6E 5601 1958 BXS ae RETURN TO CALLER 2073 * 
003A70 6EOD 2704 eee * 2074 SESTASSESTELSSALE SS EASE SN SSL SAT RESECSTESASIASES ILS S ESTOS SR TETEC SSE SY 
SENSO MVW Io SAVE ADDRESS OF 
0O3A74 8028 19D0 3A93 1961 MVB DEOADD, IDCBO+1 LOAD DEVICE ADDRESS IN’ IDCB 2076 * SUBROUTINE 
OO3A7A 680C 3A92 1962 Io rb BO READ SENSE WORD 1 2077 * 
OO3A7E 6F05 3a84 1963 BNCC CCERR CHECK COND CODE 2078 * PURPOSE 
OO3A82 5601 1964 BXS thes RETURN TO CALLER 2079 * 
aie. Weee 1965 a ee nee 2080 + LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFER 
COPY STATU 
003A86 336A 1967 SRL 13,R3 POST TION ce CNR Ry Brae 9384s 2082 * CALLING SEQUENCE 
003A88 C328 2700 1968 MVB R3/TOIN * PUT IN LOG AREA 2083 * 
OO3A8C 68D2 0000 1969 . B (Rb) * RETURN TO USER ae BAL LWSID,R6 
003A90 6F05 1971 IORST DC X'6FO5 RESET IO 2086 * RETURN 
003392 2205 1972 IDCBO DC X'2205 SENSE WORD ZERO 2087 * 
003A94 0000 1973 RDATAO DC CO 4! DATA WORD 2088 * BXS (R6) 
003396 2105 1974 IDCBY DC X"'2105' SENSE WORD ONE 2089 * 
003A98 0000 1975 RDATA DC A (#3) 2090 3 ae He she he afc she Be fe he Bh ae fe fe Be ae dhe ae He he He He he he he hk he fc hx he she ah fe ae ae hc Bh ae he hee ah hc ae ae he ah ae eae ce he eae ee Me ae oe fe he he ae oe ek a ae 
OO3A9A 4005 1976 IDCBCE1 Dc x*4go005¢ CE DIAG OP1 2091 * 
003A9C 0000 1977 CEDAT DC a heeds SENSE DATA 2092 * 
OO3A9E 4105 1978 IDCBCE2 pc xtfui105e CE DIAG OP2 0O03B0C 4724 0005 2093 LWSID MVWI 5,R7 BYTE COUNT 
003AA0 0000 1979 CEDAT2 DC A(*-* SENSE 003B10 4324 2707 2094 HVA SCTID+1,R3 ADDR OF RD SECT ID DATA BUFFER 
OO3AA2 2F05 1980 IDCBRAP Dc X'2F0 ' READ DIAG WRAP 003B14 4524 39B6 2095 MVA WRSID,R5 ADDR OF WR SECT ID DATA BUFFER 
OO3AA4 0000 1981 RAPDAT DC A (¥*- SENSE DATA 003B18 2BA4 2096 MVFEN Ea} ’ (R5) MOV DATA FROM RD TO WR BUFFER 
000232 1982 CPUID EQU Xx? ees ' CPU ID 003B1A 5600 ee ‘ BXS RETURN TO CALLER 
1985 COPY T7810 01DEC76 2100 * 
1986 *x 0) 2101 * EXECUTE INPUT & OUTPUT COMMANDS 
1987 ak eeeeke AGC a I aoa a IE 4 2/70 1/7 6 ae a Iai ial loi ania i iii aii ak 2102 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
1On8 * 2103 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
1989 * SUBROUTINE 2104 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
1990 * 2105 * SUPVR CALL. 
1991 * PURPOSE 2106 * 
1992 * 2107 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
1993 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 2108 * : 
1994 * NORMAL AND TEST DATA. 2109 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
1995 * 2110 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
1996 * CALLING SEQUENCE 2111 * 
1997 * 2412 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1998 * BAL CMPRW,R6 NORMAL) 2413 * ° 
1999 : BAL CMPRT, "RE (rest) 443 : 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 
2001 ‘ RETURN 2116 * 2 BAL $WKST,R6 WRITE SECTOR ID SKEWED (TEST) 
2003 ‘ BXS (R6,2) -~ ‘NORMAL 2118 * 3 BAL $RWST,R6 READ SECTOR ID SKEWED (TEST) 
3005 * 2120 * 4 BAL $RIDS,R6 
2006 a eat ee ene 2133 24 5 iT Sh ; 6 Pe ee 
KEW,R WRI Cc 
OO3AA6 4724 0005 2008 CMPRT MVWI BYTE COUNT 2123 * . : aera aes 
OO3AAA 4324 39c5 2009 NVA aeeee R3 ADDR OF RD SECT ID DATA (TEST 2124 * 6 BAL $WSEC,R6 WRITE SECTOR ID 
OO3AAE 4524 39BE 2010 MVA WSIDT,R5 ADDR OF WR SECT ID DATA (TEST 2125 * ° 
OO3AB2 5006 3011 J rTuy 2126 * 7 BAL $WSTS,R6 WRITE SECTOR ID (TEST 
OO3AB4 4724 0005 2012 CMPRW MVWI COMPARE BYTE COUNT 2127 * ° 
OO3AB8 4324 2707 3013 MVA sent ipa 1,R3 ADDR OF RD SEC ID DATA 2128 * 8 BAL $DIAG,R6 DIAGNOSTIC 
OO3ABC 4524 39B6 2014 MVA ID,R5 ADDR OF WR SEC ID DATA 2129 * ° 
003AaC0 2BA6 pas 2015 TTYY CENEN (83) 4 (R5) CONPARE ID DATA 2130 * 9 BAL XIOcS,R6 CYCLE STEAL STATUS 
WRITE ID DA . 
003AC6 68D2 0000 2017 Rese CGNPARE ERROR OO 2132 + 10 BAL S$SEEK,R6 SEEK 
p36 Sa ema eee rn ee eee eee EN REN eae IS COT eT ee TTR POT Cee o33¢ 24 11 BAL SRECL,R6 RECALIBRATE 
2021 * SUBROUTINE 2136 * 12. BAL SRDID,R6 
2021 + 2136 * ; READ SECTOR ID 
2023 * PURPOSE 2138 * 13 BAL SRD,R6 READ 
2024 * CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS 2139 * ° 
5025 * ONE. 2140 * 14 BAL $RDVY,R6 READ VERIFY 
2026 * SETUP LOGICAL SECTOR # IN LOCATION "LGSEC!# 2141 * . 
2027 3 PHYSICAL SECTOR # WILL BE LOADED IN LOCATION 'PuHysc? ae H 15 BAL SWRT,R6 WRITE 
2029 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 2144 * 
2030 * LOGICAL- X 00, 1E, 01, 1F, 02, 20, 03, 21, 04, 22, 05, 23, 06, 24 003B1C 4020 3CEE 3920 2145 $SEEK MVA  SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC Cc 
2031 * BHYSICAL X 00% 01% 02; 03, 04, 05, 06, 07% 08; 09; OA, OBS OCS OD; ees eee. ues ane J XTO _—<— 
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2147 * OO3BEC CB25 3CFO 2262+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
003B24 4020 3CEE 3850 2148 S$RECL MVA  CLDCB,IODCR SET UP BLOCK FOR SVC CALL OO3BFO 5SOOA 2263+ J XTO1 CS T/O'S ARE NOT RETRIED 
003B2A 5060 2149 J XIO 22644* 

2150 * OO3BF2 4CAA 2265+ TBTR (R4,CE RESET CS STATUS INTER ERROR INDICAT. 
003B2C 4020 3CEE 3900 2151 $RDID MVA  RSDCB,IODCB SFT UP BLOCK FOR SVC CAUL OO3BF4 4C68 2266+ TBTS (R4,CS SET 'CYCLE STEAL STATUS* IN PROGRESS 
003B32 OBFF 2152 MVBT X‘'FF*',R3 SET BUFFER TO F's 0O03BF6 4020 3CEE 3930 2267+XIOCS MVA SDEB,IODCB SET UP CONTROL BLOCK POR SVC CALL 
003B34 4524 2706 2153 MVA_ SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS OO3BFC 4020 3CFO OOOF 2268+ MVWI X*'OOOFt, TOMOD SET CYCLE STEAL MODIFIER 
003B38 4724 0006 2154 MVWI 6,R7 SETUP BUFFER LENGTH 003C02 4c28 2269+ TBT (Ru CS) TS CS IN PROGRESS, ERROR CONDITION 
003B3C 2BAC 2155 FFN R3 (R5) INTT READ SECTOR ID BUFFER 003C04 1213 2270+ JON To2 * YFS, BYPASS SAVENG 1/0 ADRS 
O03B3E 4020 390E 2706 2156 MVA ©scfrp,RSDCB+14 DATA ADDR 003C06 6E0D 2704 2271+XI01 MVW R6,LSTIO SAVE fAR FOR RETRY IF REQUESTED 
OO3B44 5053 2157 J XIO 0OO3COA 4324 2708 2272+ VA DChUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 

2158 * 0O0O3COE 6D08 3CEE 2273+ MVW  IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
0O03B46 OBFF 2159 $RD MVBY X*FF!,R3 SETRD BUFFER TO ALL F'tS 003C12 OF10 227U+ MVBI 6.R * THE NUMBER OF movés 
003B48 6D08 396E 2160 MVW  RDDCB+14,R5 SET UP READ BUFFER ADRS 003c14 2D64 2275+ MV FN SR) §R3) MOVE 1 STATUS WORD AND ADJUST 
OO3B4C 4724 0100 2161 MVWI X20100',R7 SET UP BUFFER LENGTH 003C16 OBFF 2276+ MVBI 55 f CLEAR CYCLE STATUS BUFFER 
003B50 2BAC 2162 FFN  R3 CLEAR READ BUFFER 003C18 4524 271E 2277+ MVA CSBOF,R5 * TO ALL ONES * 
003B52 4020 3CEE 3960 2163 $RDS MVA Rb 5. ODCB SET UP BLOCK FOR SVC CALL 003C1C OF10 2278+ MVBI 16,R * 
003B58 5049 2164 J XI 003C1E 2BAC 2279+ FFN  R3 4 5) * 

2165 * 003C20 4020 2700 0708 2280+ MVWI x'6708",$IOTN OVERLAY OLD CONDITION CODES 
003B5A 4020 3CEE 3950 2166 SRDVY MVA VRDCEB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C26 CB25 2702 2281+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALIE 
003B60 5045 2167 J XIO 2282+* 

2168 * 003C2A 4CA1 2283+ TBTR R4Y,ER RESET ANY ERROR BEFORE 1/0 COMMAND 
003B62 4020 3CEE 3940 2169 S$WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C2C 4CA3 2284+XI02 TBTR R4,IN CLEAR TNTERRUPT RECEIVED CNTL BIT 
003B68 5041 2170 J XIO 003C2E 4724 2285+ MVA OBLK ,R7 SET UP CONTROL BLOCK FOR SUPVR 

2171 * 003C32 4CA6 2286+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 
OO3B6A 4020 3CEE 3980 2172 $RKEW MVA  RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C34 4C62 2287+ TBTS (R4,X1) SET EXPFCTED INTR CONTROL BIT 
003B70 OBFF 2173 MVBI X'FF*,R3 SET BUFFER TO F'S 003C36 600A 2288+ SVC TART CALL SUPVR FOR I/0 COMMAND 
003B72 4524 2706 2174 MVA  SCTID,RS5 SETUP READ SECTOR ID BUFFER ADRS 2289+* 

OOSBTR 2Bac OOS s17e PEN RST (RS INIT READ SECTOR 1D BUFFER 00338 ECO 0002 5 3ats By fRel dy) tua peetee re vecn 

C3A AC + N R 
003B7C 4020 398E 2706 2177 MVA SCHED, RKDCB+14 DATA ADDR 2292+* ve) : 
003B82 5034 2178 . J XTO 2293+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 

+ 

003B84 4020 3CEE 3970 2180 SWKST MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C3E O0DO00 2295+ MVBI x00? a SET UP WORK REG FOR "LOST INTR! 
003B8A 4020 397EF 39BE 2181 MVA WSIDT, WKDCB+14 DATA ADDR 003C40 4CA3 22964+XT08 MTBTP (Ru Th HAS INTERRUPT BEEN RECEIVED 
003B90 502D 2182 J XIO 003C42 1238 2297+ JON Totk * YES, CHECK IF ALL WAS SATISFACTORY 

2183 * 003C44 6002 22984 SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
003B92 4020 3CEE 3980 2184 SRWST MVA  RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2299+* SUPVR WILL RETURN HERE 
003B98 4020 398EF 39c4 2185 MVA SCTST, PKDCB+14 DATA ADDR 003C46 7DA1 0001 2300+ AWI 1,R5 ADVANCE TIME OUT COUNT 
OO3B9E 5026 2186 J XIO OO3C4HA 18FA 2301+ JNZ  xfo8 BCH IF TIME OUT NOT REACHED 

2187 * 0O03C4C 4C61 2302+ TBTS (R4,ER) SET ON ERROR CONTROL BIT 
003BA0 4020 3CEE 3900 2188 $RIDS MVA  RSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO3C4E 68D2 0000 2303+ B R6) * "NO INTERRUPT! 
OO3BA6 OBFF 2189 AVBI X'FF",R3 SET BUFFER TO FtsS D305 FRR RH Hem HA He He He He eM 2 a He Hee eo a he heh 2 oe a ee he eh ae eh ee ok ok ok ok ok KK KK KKKO QP ERT] 6** 
OO3BA8 4524 39c4 2190 MVA SCTST,R5 SETUP READ SECTOR ID BUFFER ADRS 2306+* 
OO3BAC 4724 0006 2191 MVWI 7 SETUP BUFFER LENGTH 2307+* SUBROUTINE 
003BBO 2BAC 2192 FFN R34 (R5) INIT READ SECTOR ID BUFFER 2308+* 
003BB2 4020 390EF 39c4 2193 MVA SCTST,,RSDCB+14 DATA ADDR 23094+* I/O FXECUTE ERROR HANDLING ROUTINE 
003BB8 5019 2194 J XIO 2310+* 

2195 * 2311+* PURPOSE 
0O3BBA 4020 3CEE 3970 2196 S$WKEW MVA  #WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2312+* 
003BCO 4020 397E 3986 2197 MVA  WRSID,WKDCB+14 DATA ADDR 2313+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
003BC6 5012 2198 J XIO 2314+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 

2199 * 2315+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
003BC8 4020 3CEE 38F0 2200 $WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2316+* 

OO3BCE 4020 38FE 3986 2201 MVA  WRSTD,WSDCB+14 DATA ADDR 2317+* CALLING SEQUENCE 
0OO3BD4 500B 2202 J XIO 2318+ 
003BD6 4020 3CEE 38F0 2203 $WSTS MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2319+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
OO3BDC 4020 38FE 39BE 2204 MVA WSIDT, ,WSDCB+14 DATA ADDR 2320+* 
OO3BE2 5004 2206 : J TO 2321+* RETURN CONTROL 
+ 
QOO3BE4 4020 3CEE 38D0 2207 SDIAG MVA DGDCB, IODCB SET UP CONTROL BIOCK FOR SVC CALL 2323+* B (R6) * RETURN TO USERS ERROR HANDLER 
0O3BEA 5000 2208 J XIO 23244+% 

2209 kEQIT D3 DD RR HH HH HM A He Me ee He He Hee he he he he He I fe hehe he ee 2 oe ae ae he aie ae a 2 ef he ae 2 a i fe fe ote ofc ae te ete ake hc ie he 2 ok oh oe aie ie 2c 

22 10+ 3 TRIO IO og io lola dot ok todekotoktcgok ttt 99 JUL 7 AX 2326+4+% 

22114+* 2327+* CC O= DEVICE NOT ATTACHED 

2212+* SUB-ROUTINE 2328+* FOR 1= DEVICE BUSY 

2213+* 2329+* T/0 2= DEVICE BUSY AFTER RESET 

22144+* EXECUTE INPUT AND OUTPUT COMMANDS 2330+* 3= COMMAND REJECT 

2215+* 2331+* 4= INTERVENTION REQUIRED 

2216+* PURPOSE 2332+ 5= INTERFACE DATA CHECK 

2217+* 2333+* 6= CONTROLLER BUSY 

22184+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2334+* 7= I/O COMMAND ACCEPTED 

22194+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 2335+* 

2220+* 003C52 706E 2336+XIOER DC X'706E! COPY STATUS ANY LEVEL INTO R3 

2221+* 1. SAVE TRE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 003C54 336A 2337+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 

2222+ THE I/O COMMAND. 003C56 C328 2700 2338+ MVB R3,$IOIN * PUT IN LOG OUT AREA 

2223+* 2- SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 003C5A 68D2 0000 2339+ B (RG) * RETURN TO USER ERROR HANDLER 

22244 ISSUED BY THIS SUBROUTINE. D3 a HK HH HH HH HH HK He HK He He eH He He He ie Ke he He Re ie i oe ic i ek i KK ek kk KK PUA PRT 6¥* 

2225+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 23424* L 

2226+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 23434+* SUB-ROUTINE IL 

2227+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 23444+% TL 

2228+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 23454 ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* TL 

2229+* MYSTERY INTERRUPT (MT) CONTROL BIT TS SET. 2346+ IL 

2230+ 5. MOVES THE ADDRESS OF THE I/O CONTROL PLOCK IN R7, SET THE 2347+* PURPOSE TL 

2231+* EXPECTED INTERRUPT CONTROL BIT AND TSSUE THE 'sv€ STaRT', 2348+* FL 

2232+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THF T/O COMMAND, TIMING 2349+4+% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 

2233+* STARTS TO DETERMINE A LOST INTERRUPT. 2350+ OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 

2234+* 7. ACCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2351+4+* EXPECTED CODE. IL 

2235+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2352+% TL 

2236+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2353+* CALLING SEQUENCE TL 

2237+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2354+ IL 

2238+ 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 2355+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT TL 

2239+* 11. CHECK TO SEE IF THE EXERCISER TS TO BE TERMINATED. 2356+* IL 

2240+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2357+* RETURN CONTROL IL 

22414+%* ISSUED BY THIS SUBROUTINE. 2358+ IL 

22424+% 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 2359+* SVC EXIT RETURN TO USER VIA SUPVR IL 

2243+% CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 2360+* IL 

getets COUNT IT AND SET UP THE PROPER EFPROR MESSAGE TO BE PRINTED. DQ BGM HHH HH HH HH He He He He Me He He He He he He He He He a He RH ee ee ee he he he He ac i a ie hee he a of eh 2 eae cc ke ie aca coke oe ok ke ok Kk KT 

+ 2362+* TL 
2246+* CALLING SEQUENCE 2363+* CC O= CONTROLLER END ISB O= ADD STATUS TL 

22474 2364+4+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 

22484 THIS ROUTINE HAS THE FOLLOWING ENTRIFS: 2365+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 

2249+4+* 2366+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 

2250+* --> BAL xtIo OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 2367+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 

2251+* --> BAL XI01 MOD PARM PRELOADFD IN 'Tomod' 2368+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 

2252+* --> BAL  XIOCS,R6 — OR XEQ START CYCLE STEAL STATUS, MOD=F 2369+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 

2253+* --> BAL xXIOCS-4,R6 AUTO CS STATUS (FOLLOWING OTHER XTO 2370+* 7J= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 

2254+ i AND DOES NOT POST INTERRUPT STATUS) 2371+ TL 

2255+* 003C5E T706E 2372+INTER DC X"*706E® COPY STATUS ANY LEVEL INTO R3 IL 

2256+* RETURN CONTROL 003C60 336A 2373+ SRL 13,R3 POSITION INDICATORS IN R3 TL 

2257+* 003C62 4424 26F8 2374+ MVA optn1,R4 SET UP BASE ADRS IL 

2258+* RG 2) RETURN TO USER NO ERROR 003C66 4C28 2375+ TBT (Ra c$) IS CS IN PROGRESS TL 

22594+* OR RETURN AND RETRY ON ERROR 003C68 1006 2376+ JOF NTE NO TL 

TT rere er err ere oy SC eeiateieeheeeke HK Me he He ae ee ae i ake he Hk ofc ea ee ee eK fe fe cK oe ok oe OO3C6A COA 2377+ TBTS (R4,CE) ring ON CYCLE STEAL INTER ERROR IL 
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003C6C 6FOD 272C 2378+ MVW se CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 x ie 6 2495+4+% 
003C70 C328 272D 2379+ HVB "CSTL8+1 * AND THE COND CODE IL 2496+* --> BAL CONC, R6 CLEAR DEV DEP STG AND SReeny G x O BLK 
003C74 SOOA 2380+ J Rens IL 24974+#* --> BAL CONP, RE PREPARE DEVICE ONLY, ALREADY HECT 
003C76 4C24 2381+INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROR IND IL 2498+% 
003Cc78 1002 2382+ JOFF NTE T BCH IF NOT EXPECTED TL 24994+* RETURN CONTROL 
OO3C7A F304 2383+ CBI 4 R3 TIS THIS AN "ATTENTION! INTR EG 2500+* 
003C7C 1006 2384+ JE INTR1 * YES, BCH TO END INTR SEQUENCE TL 2501+* BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 
OO3C7E 4C61 2385+INTET TBTS Ane ER) SET ERROR ON I/O COMMAND CNTL BIT IL 2502+* OR B R6{ * IF THE DEVICE COULD HOT BE COBWECTED 
003C80 5004 2386+ J nth IL 2503+* 
2387+ THE ERROR INTERRUPT USES THE SAME TL D5 QU & 4 Me eH He He ae he ee He ae ae He ee se ae ae he he he oe ae ae ae ae he ee Me ae Me ae He Me He Me he HM he ae MK Me he he he he ae ae He eee eM Oe he he oe eH 
2388+* ENDING SEQUENCE AS THE NORSAL INTR IL OO3CFE OFO6 2505+#$CONC MVBI 6,R7 NHUHBER OF BYTE TO CLEAR 
2339 0 4 oI IO I igri oR ick i lttoigiok iatotok ke dakogc tok gok tok kk tke TA PRTIG6TIL 003D00 OBO0O0 2506+ MVBI O.R3 * AND THE DATA TO USE 
23914+* IL 003D02 4524 2706 2507+ AVA p&v1 R5 * ALONG WITH THE ADRS TO USE 
2392+* SOUBROUTINE Ir 003D06 2BAC 2508+ FFR R3 (85) * 
2393+* IL 003D08 CB25 26FC 2509+ HVWZ opt 3,83 CLEAR OLD CONTROLS FOR NEW ROUTINE 
23944* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL! TL 0OO03D0C 4724 3CF6 2510+ HVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
2395+* IL Aeanie 6014 2511+ SVC CICB * CONNECT IT TO THIS DEVICE 
Seoul e PURPOSE ry 003D12 6AD0O 0000 ree BN (R6) * ERROR RETURN TO USER 
+ 
2398+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST TL 003D16 8828 2734 3CEE 2574+ $CONP MVH S$INTL,IODCB gies IN LEVEL & INTR PARAMETER 
2399+* TL 003D1C 4724 3CEA 2515+ HVA IOBLK SET R7 TO CONTROL BLOCK TO PREPARE 
24004¢* CALLING SEQUENCE IL 003D20 4020 2700 0708 2546+ MVWI x'0708', $IOIN eT ee Seen Tse ae STORAGE 
2401+* IL 003D26 CB25 2702 2517+ MVWZ S$ISB,R3 AND CLEAR OLD ISB VALU 
24024+% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL Q0O03D2A 6E0D 2704 2518+ HVW R6 L§TIO SER UP ADDRESS THAT STARTED LAST I/0 
2403+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS he oaee TL OO03D2E 600C 2519+# SVC PREP * AND CALL ON SUPVR 
240U+4+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND TH IL 003D30 5601 2520+ BXxs {R6 2 RETURN TO USER 
2405+%* COMMON SECTION IS HANDLED HERE. IL 7 522+ sk oa ke ek otek io i tot aio eg tok geek tok i tik tok it Hk KK OG APR 6% 
2406+ TL 2523+% 
2407+* RETURN CONTROL IL 2524+* SUBROUTINE 
2408+* TL 25254* 
aes svc EXIT RETURN TO USER VIA SUPVR * ee DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
+ T + 
PUR REET ICICI OCSS OCS CSCC CS OSCS OCS OCS OST CCL OCC STC SSCS CSCC SSC OCS CLS S TS PSST LT LSS cee 2528+* PURPOSE 
003C82 706E 2412+INTOK DC X*706E! COPY STATUS ANY LEVEL INTO R3 IL 2529+% 
003C84% 336A 2413+ SRL 13,3 POSITION INDICATORS IN R3 IL 2530+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003C86 4424 26F8 2414+ MVA optN1,R4 SET UWP BASE ADRS TL 2531+%* SET THE ‘NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
OO3C8A 4C63 2415+INTR1 TBTS R4,IN SET INTERRUPT RECEIVED LL 2532+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
003CB8C 4C28 2416+ TBT R4,CS IS *cCS IN PROGRESS! ON Tt, 2533+* 
OO3CB8E 1204 2447+ JON NTRI * YES, BCH AROUND UPDATE IL 25344* CALLING SEQUENCE 
003C90 C328 2701 2418+ MVB R3, SIOIN+1 SAVE SNTERRUPTING CC CODE TL 2535+ 
003C94 6FO0OD 2702 2419+ MVW R7,S$ISB SAVE INTR STATUS AND DEV ADRS IL 2536+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
003C98 2420¢+INTR2 EQU * IL 2537+% 
2421+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 2538+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 
003C98 3521 2422+ SLL &,R5 POSITION INTR LEVEL AND PUT IL 2539+* --> B S$CONX RETURN TO MDI SUPERVISOR TO TEST STS 
003C9A 0501 2423+ ABI 1,R5 * IN 'I' BIT IL 25404+* 
t 003C9C CD24 2734 24H24+4 CW SINTL,R5 IS THIS THE CORRECT INTR LEVEL IL 2541+* RETURN CONTROL 
QOO3CAO0 1002 2425+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 25424% 
QOO3CA2 4C66 2426+ TBTS R4,$LE) SET Thtr LEVEL ERROR CONTROL BIT a0 2543+ B TORTN* RETURN TO &DI 
OO3CA4 4C61 2427+ TBS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 25444+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
OO3CA6 &CA2 2428+INTR3 TBTR R4&,XI WAS INTERRUPT EXPECTED IL 25454% 
OO3CA8 1204 24294 JON NTRY * YES, EXIT OFF THIS INTR LEVEL IL VANES OSLOSSSLOCSSOTOSSOCSSSCSS SSS CSS IST OCS CSL CCSS LOL OL SP PETS SS TS TT es eS Se tT 
OO3CAA 4C60 2430+ TBTS (R4,4HT) * NO, SET MYSTERY INTR CONTROL BIT IL 003D32 4020 1818 8000 2547+SERRS MVWI X'*8000' , TUSTATUS SET ON ‘NO GOOD! STATUS BIT 
OO3CAC F304 2431+ CBI u R3 ATTENTION INTERRUPT? TL 003D38 4724 3E9C 2548+ fivA HEBLK,R? GET ADRS OF CONTROL BLOCK 
OO3CAE 1001 2432+ JE INTRX YES IL 003D3C 601A 2549+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
003CBO 4C6C 2433+ TBTS ae NG) corn UNEXPECTED INTERRUPT IL OO03D3E 0D03 2550¢$PRNT MVBI 3,R5 
OO03CB2 6006 Q24U34U+INTRX SVC XxIt " HIS LEVEL VIA SUPVYR TO PGMN TL 003D40 4324 181A 2551+ HVA TOWORK R3 SET UP BUFFER STORAGE 
EE Re rep pee ery eee ree rere ease ro oe Sm oe Rr en Ne OO0O3D44 6B0D 3E94 2552+ HVW R3,BUFPT 
2437+* 003D48 4124 3Dc4 2553+ NVA  LIfE1,R1 
2438+ THIS IS THE CONTINUATION OF EXECUTE I/0 AFTER THE INTERRUPT OO3D4C OFOY4 2554+ MVBI 4,R7 
2439+ HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN OO3D4E OED8B 2555+ HVBI 8,R6 
24404 RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 003D50 2B24 25564+MVBUF MVFN (R3 , (R1) 
2441+4+* 003D52 OFO4 2557+ MVBI cB 
24U42+% 003D54 OA4O 2558+ MVBI x'4&O' ,R2 
OO3CB4 4CAY4 24434+XIOCK TBTR R4, XE) WAS AN eee EXPECTED 003D56 C258 2559+ HVB R2 cape 
Q003CB6 6ACO 0002 24U4K+4 BN ROrZ) YES, EXIT THIS ROUTINE 003D58 BEFB 2560+ JCT NVB F,R6 
OO3CBA 4CA8 2445+ TBTR R4,CS) WAS bro CS IN PROGRESS OO3D5A OEO8 2561+ MVBI 8,R6 
003CBC 1006 2446+ JOFF xXTocv * NO, CONTINUE CHECKING 003D5c 7921 002c 2562+ AWI 44,R4 
OO3CBE 4C2A 24474 TBT (Ra CE) ts c& IN AN ERR CONDITION 003D60 BDF7 2563+ gct svBUF,R5 
003CCO 1002 2448+ JOFF Toco * WO, BCH 003D62 4020 1802 F1F0 2564+ MVWI PIDMSG10,PID+2 
003CC2 68D2 0000 2449+ B R6) * CS ERROR 003D68 4020 19B8 3E9A 2565+ MHVA FAKETU, @DCADD1 
003CC6 4C69 2450+XIOCO TBTS R4&,CSA) TORN ON CS STATS AVAIL FLAG OO3D6E 4020 19BA 3E96 2566+ MVA DC2PT Ror anne 
003cCcC8 5601 2451+ BXS Bp ea) GO TO USER 003D74 402c 19C4 0080 2567+ OWL BITO0080,SUPSTAT 
OO3CCA 4C21 2452+XIOCV TBT R4Y,ER) WAS ERROR INTR CONTROL BIT ON OO3D7A 4324 26FE 2568+ MVA $T D,R3 SET UP BUFFER STORAGE 
003CCC 100B Sens JOFF TOCX * NO, EXIT THIS ROUTINE OO3D7E 6F13 18BA oa BAL TUMSGHER*,R7 GO TO MESSAGE WRITER 
+ 
QO3CCE C520 2701 2455+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 003D82 2571+ $CONX Eye * 
O003CD2 F502 2456+ CBI 2,85 IS THIS cCc=2 003D82 C720 19D0 2572+ MHVB DEVADD,R7 GET DEVICE ADDRESS FROS HDI 
QO3CD4 68D1 0000 2457+ BNE (Re) * * WO, BCH TO ERROR HANDLER 003D86 6013 2573+ SVC RICB RELEASE INTERRUPT po eeane BLOCK 
0O03CD8 C520 2702 2458+XIOCQ MVB TSB,R5 GET LAST TSB DATA BYTE AND IF cS 003D88 6812 2736 2574+ B TURTN* RETURN TO MDI SUPERVISO 
OO3CDC 6A00 3BF2 24594 BN xtoc§-4 * AVAILABLE, GO AND GET IT 2575+ 
OO3CEO 68D2 0000 2460+ B ia ie ERROR 003D8C 0007 2576+BEGIN DC A(0007 NOMBER OF LINES TO PRINT 
OO3CE4 CB25 26FC 2461+ XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS OO3D8E 0008 2577+ DC A(0008 LINE LENGTH = 8 CHAR 
OO3CE8 5601 2462+ BXS (R6, 2) RETURN TO USER VIA REG 6 003D90 5C5C40C1C2D6D9E3 2578+ DC Ct*** ABORT ® 
2463+% 003D98 0028 2579+ DC A (0040) LINE LENGTH = 40 CHAR 
2464+* 1/0 PARAMETER LIST OO3D9A E3E4COC4HHOCODECID 2580+ DC C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEV4 * 
2465+* 003DC2 0028 2581+ DC A (0040) LINE LENGTH = 4O CHAR 
OO3CEA 19D0 2466+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS OO3DCH 4O4OKO4O4O4OHOLOY 25824LINEY DC c* J 
0O03CEC 3C€52 2467+ DC A XIOER) ERROR ROUTINE ADRS OO03DEC 0028 2583+ DC A (0040) LINE LENGTH = 4O CHAR 
QOO3CEE 0000 2468+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR OO3DEE C3D5E3D340CKC3C2F 2584+ DC C'CNTL DCB2 DCB3 DCB4Y DCB5 CHAD BYCT ADRS * 
OO3CFO 0000 2469+IOMOD DC A ae MODIFIER OO3E16 0028 2585+ DC A (0040) LINE LENGTH = 4O CHAR 
Q03CF2 0000 2470+ DC A (*-* ADRS OF LAST SVC CALL OO3E18 4O4OKO4OK04040404 25864+LINE2 DC cr UY 
OO3CF4 0000 24714#IORSP DC A (*-* SECOND WORD OF LAST IDCB OO03E40 0028 2587+ DC A (0040) LINE LENGTH = 4O CHAR 
2472+* OO3Z3E42 DIE2ZCICKHHOC3ZE260F 2588+ DC C*RSID CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ! 
2473+ INTERRUPT CONTROL BLOCK FOR I/0O COMMANDS OO3E6A 0028 2589+ DC A (0040) LINE LENGTH = 40 CHAR 
2474+* OO3E6C 4OuOKOFOKO4OKHOKO 25904LINE3 DC cf ' 
OO3CF6 19D0 2475+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 2591+* 
OO3CF8 3C82 2476+ Dc A (INTOK INTERRUPT OK RETURN ADRS OO3E94 0000 2592+BUFPT DC A era 
OO3CFA 3C5E 2477+ DC A CINTER INTERRUPT ERROR ADRS 003E96 3D8C 25934#DC2PT DC A (BEGIN) 
OO03CFC 0003 2478+INTCC DC § ‘ INTERRUPT CODE EXPECTED O03E98 0101 25944+FIXTU DC x'*0101° 
2U 80+ #3 oo oko io kd iio iio ok doi ok dak toi totok tote sak kato took k 11 AY 7 6 ee OO3E9A 0101 2595+ FAKETU pc x'0O101! 
24814+* OOF1TFO 2596+PIDMNSG10 EOu X'*FIUFO! 
ZuB24% SUBROUTINE 000080 seshee EQU X*00808 
+ 
oneal CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE eon Le DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+ + 
2486+* PURPOSE OO3E9C 0030 Z2601+HEBLK DC A(48 NUMBER OF BYTES TO CONVERT 
2487+* OO3Z3E9E 26FE 2602+ DC A(STUID FROM ADRS 
2488+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND OO03EA0 181A 2603+ DC A(TUWOR ) AND THE TO ADRS 
24894* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 260 DF HK HK HK HK HR ER HK RK RK KH HK RK KKH HK KK OK KEK IS EPT 5 ** 
2490+* TO INTERRUPT. 2606+* 
24914 2607+* SUBROUTINE 
2492+* CALLING SEQUENCE 2608+* 
2493+* 2609+* SPECIAL ERROR CHECKING OF THE DCB 
24944 THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 2610+* 
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geile PURPOSE DECLARED NAME ATTRIBUTES AND REFERENCES 
+ 
2613+* TO SET THE CONTROL BITS BEFORE ISSUFING THE I/O COMMAND, 997 $C K SK ADDRESS. HEX LOCATION(000029DE) IN CSECT(I7803 ) LENGTH(6) 
2614+* TESTING TO VERIFY THAT THE ERROR DID OCCUR, AND VERIFYING 878 
2615+% THAT THE RESIDUAL ADDRESS IS WHAT IT SHOULD BE. 2505 $CONC ADDRESS. HEX TOCATZ ON (O0003C FE) IN CSECT(I7803 ) LENGTH(2) 
+ 
gore CALLING SEQUENCE 2514 $CONP ADDRESS. HEX LOCATION (00003D16) IN CSECT(I7803 ) LENGTH(6) 
2619+* --> BAL  ERTST,R2 USE COMMOM ERROR TEST SUBRTN 2571 $CONX ADDRESS. HEX LOCATION(00003D82) IN CSECT(I7803 ) LENGTH(1) 
2620+* DC ie DISPLACEMENT FOR RESIDUAL ADRS 961 1142 1277 1565 
2621+% DC A (*=*) FRROR ADDRESS 2207 $DIAG pABRRESS, HEX LOCATION (OOO03BE4) IN CSECT(I7803 ) LENGTH(6) 
2623%% RETURN CONTROL 2547 SERRS aAE DEES Ss Hex TOCE TON (00003032) IN CSECT(I7803 ) LENGTH(6) 
ae Paap: BXS (R2, 6) RETURN TO USFR VIA REG 2 6 36 $INTL ADDRESS. AEX LOCATION (00002738 iY CSECT(I7803 ) LENGTH(2) 
262 Tt ERR R EK RR KEE III I OR IO i tok dk doi ak 606 $IOIN ADDRESS. HEX fe gen ee ae IN CSECT(I7803 ) LENGTH (2) 
OO3EA2 4cC64 2628+ERTST TBTS (R4,XE) SET EXPECTED ERROR FOR EACH FAULT 910 931 946 952 1268 1556 1968 2280 2338 
OO3EA4 6£E03 0000 2629+ BAL ¥*-*,R6 GO XEQ I/0 COMMAND 2418 2455 2516 
OO3EA8 3D32 2630+ DC A (SERR$) RETRY 607 SISB ADDRESS. HEX LOCATION (00002702), IN CSECT (17803 L LENGTH (2) 
OO3EAA 4C21 2631+ TBT {EA AER) DID ERROR CONTROL BIT GET SET 853 855 875 912 933 48 953 1269 1557 
OO3EAC 1202 2632+ JON RTSV * YES,GO CKECK RESIDUAL ADDRESS 2281 2419 2458 2517 
OO3EAE 6852 0002 2633+ B (R2, 2) * FRROR 591 $LE ABSOLUTE. HEX VALUE (00000026) 
0O3EB2 AAO8 3CEE 2635+ERTSV AW (R2) , IODCB DEVELOP DCB ERROR ADDRESS 2159 $RD ADDRESS. HEX LOCATION(00003B46) IN CSECT(I7803 ) LENGTH(2) 
003EB6 5000 2636+ NOP, FOR ALL ARCH ADD (SWI 1,IODCB) 1356 1364 1372 1537 
OO3EB8 5000 2637+ NOP , * (402E (ADD OF IoDcB) 6001 2163 SRDS ADDRESS. HEX LOCATION (00003B52) IN CSECT(I7803 ) LENGTH(6) 
QOO3EBA 5000 2638+ NOP * 1070 1079 1103 
OO3EBC 8828 3CEE 3EE0 2639+ mvw fODCB,ERTSZ SAVE DCB ADDRESS 2151 $RDID ADDRESS. HEX LOCATION(00003B2C) IN CSECT(I7803 ) LENGTH(6) 
QOO3EC2 4CA1 2640+ TBTR {Rs ER RESET ERROR BIT 1086 1112 
OO3EC4 6E03 3BF2 2641+ BAL Tocs-4,R6 REQUEST START CYCLE STEAL STAUTS 2145 $SEEK ADDRESS. HEX LOCATION(00003B1C) IN CSECT (17803 ) LENGTH (6) 
OO3EC8 3D32 2642+ DC A (SERR$) RETRY 871 
QO3ECA 4C21 2643+ TBT at ER) DID ERPOR CONTROL BIT GET SET 605 $TUID ADDRESS. HEX LOCATION (000026FE) IN CSECT(1T7803 ) LENGTH(2) 
QO3ECC 6A00 3D32 2644+ BON ERRS$ YES-ERROR 646 804 1058 1215 1332 2568 26 
QOO3EDO 882B 271E 3EE0 2645+ CW CSTL1,ERTSZ TEST FOR CORRECT RESIDUAL ADDRS 2169 $WRT ADDRESS. HEX LOCATION (00003B62) IN CSECT(I7803  ) LENGTH(6) 
QOO3ED6 1002 2646+ JE ERTSX RESIDUAL ADDRESS OK 1505 
OO3ED8 6852 0002 2647+ B R2,2)* FRROR 102 @DCADD1 ADDRESS. HEX LOCATION (000019B8) IN CSECT(I7803 ) LENGTH(1) 
OO3EDC 4CA8 2648+ERTSX TBTR (R4,CS) RESET CS IN PROGRESS CNTL BIT 2565 
OO3EDE 5202 ee BXS R2,4) OK, RETURN TO CALLER 103 @DCADD2 ADDRESS. HEX LOCATION (000019BA) IN CSECT(I7803  ) LENGTH(1) 
003EEO 0000 2651+ERTSZ DC A (*-*) DCB SAVE LOCATION 39 O@FIXT ABSOLUTE. HEX VALUE (00000101) 
000000 2652 END 402 417 432 44T 477 492 507 510 
41 @GOTO ABSOLUTE. HEX VALUE (00000200) 
38 @QUES ABSOLUTE. HEX VALUE (00000100) 
ie ieee 380 40S BETO aS eo 465 480 495 
1828 BCNT jAODRESS= HEX LOCATION (0000392) IN CSECT(I7803 ) LENGTH(2) 
2576 BEGIN >ABRRESS. HEX LOCATION(00003D8C) IN CSECT(I7803 ) LENGTH(2) 
2597 BITO080 ABSOLUTE. HEX VALUE (00000080) 
2592 BUFPT bRDRESS. HEX LOCATION (00003E94) IN CSECT(I7803 ) LENGTH(2) 
565 B59 ABSOLUTE. HEX VALUE (00000018B) 
1366 1374 
566 B60 ABSOLUTE. HEX VALUE (0000001C) 
1355 1385 1484 
567 B61 jBsOLUTEs HEX VALUE (0000001D) 
18 36 CB29 ABDRESS. HEX LOCATION (000039B2) IN CSECT(I7803 ) LENGTH(2) 
1966 CCERR ADDRESS. HEX LOCATION (00003A84) IN CSECT(I7803 ) LENGTH(2) 
1938 1944 1950 1957 1963 
595 CE shBSOLUTE. HEX VALUE (0000002A) 
1977 CEDAT ADDRESS. HEX LOCATION (00903A9C) IN CSECT (17803 ‘ LENGTH (2) 
apne 4253 1063 1229 1238 1240 1245 (1248 1253 
178 ETD TET 2 PES HOCMTERN OOD NARS SY GEIST CGZAGS LENGTH (2 
nnn Siar ECT SeR SSCA Cee tt MTT cE om 
ee eee RE Tg a Es oa g8 OGRE aR gh GES" Gea) LENGTH 
1000 CHSK ADDRESS. HEX LOCATION (000029E8) IN CSECT(I7803  ) LENGTH(2) 
675 CICB ABSOLUTE. HEX VALUE (00000014) 
1705 CLDCB a ADBRESS. HEX LOCATION (000038E0) IN CSECT(I7803 ) LENGTH(2) 
1982 CPUID ABSOLUTE, HBX VALUE (00000232) 
593 cs ABSOLUTE. HEX VALUE (00000028) 
2266 2269 2375 2416 2445 2648 
594 CSA hBSOLuTE. HEX VALUE (00000029) 
624 CSBUF ADDRESS, HEX LOCATION (099027 1E) IN CSECT(I7803 ) LENGTH(1) 
1755 CSDCB ADDRESS. HEX LOCATTON (00003930) IN CSECT(I7803 _() LFNGTH(2) 
O88 al enero ecarbeB roodstraroely Zelens 
625 CSTL1 ADDRESS, HEX LOCATION (0000271F) IN CSECT(I7803 ) LENGTH(2) 
6 26 CSTL2 ADDRESS, HEX, LOCATION (00002720) IN CSECT(I7803 ) LENGTH(2) 
628 CSTL4 ADDRESS. HEX LOCATION (00002724) IN CSECT(I7803  ) LENGTH(2) 
632 CSTL8 hDBRESS, HEX LOCATION (0000272C) IN CSECT(I7803  ) LENGTH(2) 
614 DCBUF pADQRESS.- HEX LOCATION(0000270E) IN CSECT(I7803  ) LENGTH(1) 
2593 DC2PT ADDRESS. HEX LOCATION (00003E96) IN CSECT(I7803 ) LENGTH(2) 
105 DEVADD ADDRESS. HEX LOCATION (00001900) IN CSECT (I7803 } LENGTH (1) 
see 5e23 1342 1936 1942 1948 1955 (1961 2466 
609 DEV1 ADDRESS. HEX LOCATION (00002706) IN CSECT(I7803 ) LENGTH(2) 
1693 DGDCB ADDRESS. HEX LOCATION(000038D0) IN CSECT(1I7803 ) LENGTH(2) 
1091 1092 1118 1119 1125 1435 2207 
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330 
67 DUMMY ABSOLUTE, HEX VALUE (00000000) 420 N00007 ADDRESS. HEX LOCATION (00002594) IN CSECT(I7803 ) LENGTH (2) 
31300 ENTPT AG ee ne BOERET ONO OOUZEIE AN CORE (EGOS, ~ VENGTICY 432 N00008 ADDRESS. HEX LOCATION (000025AE) IN CSECT(I7803 ) LENGTH (2) 
47 EQ ABSOLUTE. HEX VALUE(00000000 
a 2 393° 408 ine eanodt tooo deat) NES: eee Se 435 N00009 ADDRESS, HEX LOCATION (000025B2) IN CSECT(I7803 } LENGTH (2) 
seat 373 Bad ast! 5308.)923 929 944 1474 447 1100010 ADDRESS. HEX LOCATION(000025CC) IN CSECT(I7803 ) LENGTH(2) 
2628 ERTST ADDRESS. HEX LOCATION (00003EA2) IN CSECT(I7803 _) LENGTH(2) 450 N00011 a LOCATION (000025D0) IN CSECT(I7803  ) LENGTH (2) 
TAGE AWE HN, Onc edoo. aaa age. Coe ee 462 00012 ADDRESS. HEX LOCATION (000025EA) IN CSECT(I7803 ) LENGTH (2) 
1 1 
aoa" 6 ERTS beng SENS ene) AM SQECT ELT OOD ds ENGTEA2) 480 "00015 ADDRESS, HEX LOCATION (0000260C) IN CSECT(I7803 ) LENGTH (2) 
3 E 
661 EXIT Sta e e eeonanne) 492 00016 ADDRESS. HEX LOCATION (00002626) IN CSECT(I7803 ) LENGTH(2) 
e222 RRRETU epee none HEX, LOCATE ON (ODDO 2 EIA) SNE SECHAN TOUR <) BENG TE(2) 495 N00017 ADDRESS. HEX LOCATION (0000262A) IN CSECT(I7803 ) LENGTH(2) 
g 
1837 FIVE SHEE ee SOCETEON (OOD0S RN) EN -CSECT(TTE05. a LENGTEA2) 507 N00018 RBDRESS. HEX LOCATION (00002644) IN CSECT(I7803 ) LENGTH(2) 
366 
5 36 F00005 ADDRESS. HEX LOCATION (00002668) IN CSECT(I7803 LENGTH (1 
Hoa te. Go anes es Ge es eee (1) 510  n00019 ADDRESS, HEX LOCATION (00002648) IN CSECT(I7803 ) LENGTH (2) 
3 i 
oer EOE ee ro ce ero eee eob el: TM ener ete. “) SEneracy 573 OPTN3 ADDRESS. HEX LOCATTON (000026RC) TN CSECT(I7803 ) LENGTH(2) 
954 1270 1558 2461. 2509 
oe HTOE pepe a ee (OOOO ON) 1835 PHYSC jADDRESS. HEX LOCATION(000039B0) IN CSECT(I7803 ) LENGTH (2) 
1976 IDCBCE1 ADDRESS, HEX LOCATION (00003A9A) IN CSECT(I7803 ) LENGTH (2) 69 enn ADDRESS. HEX LOCATION (00001800) IN CSECT(T78Q3 ) LENGTH(1) 
1978 « IDCBCE2 | ADDRESS. HEX LOCATION (00003A9E) IN CSECT(I7803 ) LENGTH (2) Ads cea. oes we eG och 
1980  IDCBRAP ADDRESS, HEX LOCATION (00003AA2) IN CSECT(I7803 ) LENGTH(2) of cog: Aone “ow Wee Ga “aee. 4oe “sae 
1972 IDCBO ADDRESS, HEX LOCATION (00003A92) IN CSECT(I7803 ) LENGTH(2) er peUNCEAGY ~<a oeoine. HEX VALUE (OOOOE1EO) 1420 2564 
1974 IDCBI jADBRESS, HEX LOCATION (00003A96) IN CSECT(I7803 ) LENGTH (2) aoe a Fee Lenses = nee VALUE (0000000C) 
2519 
et ED EE ar AM hae 1981 - RAPDAT «ADDRESS, HEX LOCATION (00003AA4) IN CSECT(I7803 ) LENGTH(2) 
588 IN ABSOLUTE. HEX VALUE (00000023 
1507) 1548 1576 2304 2296 2415 1973 RDATAO ,AQDRESS. HEX LOCATION (00003A94) IN CSECT(I7803 ) LENGTH (2) 
2475 INTBL jADDRESS. HEX LOCATION (00003CF6) IN CSECT(I7803 ) LENGTH (2) 1679 RDBUF ADDRESS. HEX LOCATION (000034D0) IN CSECT(I7803 ) LENGTH(1) 
; 13 8 
2372 INTER Sou n mos: HEE LOCH ELONAO CONSE OR) . tN COREE TCO +) BENGTE (2) 1788 RDDCB ADDRESS, HEX LOCATION (00003960) IN CSECT(I7803 ||) LENGTH (2) 
2381 INTES ADDRESS. HEX LOCATION (00003C76) IN CSECT(I7803 ) LENGTH (2) Meee ae ange Ges Besa. Gea wea sess ge 
2385 INTET pARDRESS. HEX LOCATION (00003C7E) IN CSECT(I7803 ) LENGTH (2) ee aac Vee akeee: HBX’ YaLOE (00009008) 
2412 INTOK SADDRESS. HEX LOCATION (00003C82) IN CSECT(I7803 ) LENGTH (2) foo ee ee ee eee ee AO A ee 
63 INTRNL ABSOLUTE. HEX VALUE (00000000) 674 RICB pecs ae WEEE neeoee lS) 
2434 INTRX ADDRESS; HEX LOCATION (00003CB2) IN CSECT(I7803 ) LENGTH(2) 664 RID Boa eee aL OE eel) 
2415 INTR1 SARDRESS. HEX LOCATION (00003C8A) IN CSECT(I7803 ) LENGTH (2) 18 10 REDCB Say Cota ea toe ae eer LE EeOS “)) BENGTES) 
2420 INTR2 aRDDRESS. HEX LOCATION (00003C98) IN CSECT(I7803 ) LENGTH(1) 20 BSDEE 1080 1108 1109 A140 THE NST. DaEe. O48R) 21038 ee) 
2428 INTR3 >ABDRESS. HEX LOCATION (00003CA6) IN CSECT(I7803 ) LENGTH(2) 2068 RTTO1 Reo HEX LOCATION(QOOO3AF8) IN CSECT(I7803 ) LENGTH(4) 
2466 IOBLK ADDRESS, HEX LOCATION (OOOQ3CEA) IN CSECT(I7803 |) LENGTH (2) 2 me pee ot ata nay cag cee see’ “eee: (Ooo.  caa6 
eo dean woes bene blo eee eT “160 Aad 916 1067 1145 1147 1149 1151 1153 1155 1157 
1962) 1621 2285 2515 1159 1161 1343 1344 1367 1370 1375 1378 1380 
2468 IODCB ADDRESS. HEX LOCATION (00003CEE) IN CSECT(I7803 _) LENGTH(2) VARs. Nagy “egg “lea y! eae eae oaeae lege: “Aeae 
997 2145 2148 2151 2163 2166 2169 2172 2180 DOCt Obed. Obes OOGN. Oc. SOLO: “Aoto: 407% 
2469 IOMOD ADDRESS. HEX LOCATION (00003CF0) IN CSECT(I7803  ) LENGTH(2) Aeon. Aaee: Seas: siaees a caee aes - Wags. Gace. ace 
occ)! 2262 (2268 1401 1403 1406 1408 1411 1413 #1416 1418 1621 
842 ITST1 ADDRESS. HEX LOCATION (000027D6) IN CSECT(I7803  ) LENGTH(6) NNOS. AG0E. ALOR AEG OANGS nde Andee 4une Ges 
PRDaEeo UE Coehar a. oocsu Acs 1446 1448 1451 1453 1456 1458 1461 1463 1466 
8 28 ITst5 aoe HEX LOCATION (000027A6) IN CSECT (17803 ) LENGTH (2) 1468 1591 1595 1601 1608 1626 1630 1632 25523 
37 ~=—- 17803 CSECT. START (00002500) LENGTH (6626) ESDID(1) 0 R2 a OReISSER. HBX. TALUE (00000002) 
1829 JOE ADDRESS, HEX LOCATION (0QQ039A4) IN CSECT (17803 |) LENGTH (2) B65. sub). (owe. Gah ote Gae.- Gae soea- eee 
1486 1488 1496 1497. 1541 1591 1592 °1593 1594 oe. 988 . 989 996. 962. 905. O09 O08 4oce 
1612) 1615, 1616 1623 1626. 1627 1628 =1629 1071 1080 1087 1095 1104 1113 1122 1132 1220 
1834 LGSEC ADDRESS. HEX LOCATION(000039AE) IN CSECT(I7803  ) LENGTH(2) MDOT 1200.. 120g S4DDU. “GOOR. “ADE 4oEn ADES Uaoen 
205 Tee e002. 2069 1265 1266 1337 1338 1339 1340 1341 1593 1595 
2582 LINE1 oBDBRESS. HEX LOCATION (00003DC4) IN CSECT(I7803 ) LENGTH(4O) Meee. AERO: IEDR “ACOB. <abGG. ede <eede: neue. tek 
608 LSTIO ADDRESS; HEX LOCATION (09002708) IN CSECT(I7803 ) LENGTH(2) 6 3 Mea areécen HEY ‘VALOR (00000003) >> 2635 2647 2649 
585  RRCOLIGE Hoe eaeuETOOONROouiT ee 1883 158% 1589 1597 1598/1602 1603 1603 1604 
co Sao ee ee ) 1609 1610 1967 1968 2009 2013 2015 2094 2096 
2556 MVBUF ADDRESS, HEX LOCATION(00003D50) IN CSECT(I7803 ) LENGTH(2) S095 SATe. BORE. BORG Sana Syne oaae Saas Sa ace 
597 NG sRBSOLUTE. HEX VALUE (0000002) $204 Sean g2d8 283) 2461 2506 2508 2509 (2517 
592 NI ABSOLUTE, HEX VALUE (00000027) | 0 R4 Bh SUR. Be nde Boa Baa, <eekk. Bea nea 
1226 1308 1536 2290 905 908 920 923 926 929 941 944 1059 
381 N00001 ADDRESS, HEX LOCATION (00002550) IN CSECT(I7803 ) LENGTH (2) done. Goo: Asa eee ace sgh. Sao: Shan cynee 
384 N00002 ADDRESS. HEX LOCATION (00002554) IN CSECT(I7803 ) LENGTH (2) BOER DOE: open. ann abe sear: ane. ONE asks 
390 N00003 ADDRESS. HEX LOCATION (00002560) IN CSECT(I7803 ) LENGTH (2) Say SOR Dhan Shao: Suda: oins ohAo® Suen once 
402 N00004 ADDRESS. HEX LOCATION(0000257A) TN CSECT(I7803 ) LENGTH (2) 0 RS ae eeraeeR. HEX VALUE (90000005) 
405 N00005 ADDRESS, HEX LOCATION (0000257E) IN CSBCT(I7803 ) LENGTH (2) ABGe GOGH OBTE HOGS hoes wea aoee. eee aeeS 
417 N00006 ADDRESS. HEX LOCATION (00002590) IN CSECT(I7803  ) LENGTH(2) SNOO SN2S SUS: (Sok: <oaee “SERRE Seen: “Sear oSa8 
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2550 2563 74 TUSTATUS ADDRESS. HEX LOCATION (00001818) IN CSECT (I7803 ) LENGTH (1) 
0 R6 REGISTER. HEX VALUE (00000006) 2547 
808 825 833 843 846 849 868 871 878 75 TUWORK ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7803 ) LENGTH (1) 
882 892 906 921 927 942 1060 1064 1217 2551 2603 
1230 1232 1236 1241 1283 1289 #1251 1272 1334 964 TOA ADDRESS. HEX LOCATION (00002992) IN CSECT(I7803 ) LENGTH (2) 
1371 1379 1384 1390 1395 1400 1405 1410 1415 844 
1420 1425 1430 1435 1440 1445 1450 1455 1460 966 TO 1B ADDRESS. HEX LOCATION (00002996) IN CSECT(I7803 ) LENGTH (2) 
1465 1470 1472 1483 1490 1493 1505 1811 1523 852 854 856 858 860 69 872 879 885 
1526 1529 1537 1544 1553 1560 1573 1619 1935 895 
1939 1941 1945 1947 1951 1954 1958 1960 1964 951 TO1C ADDRESS. HEX LOCATION (00002962) IN CSECT (17803 } LENGTH (6) 
1969 2016 2017 2056 2097 2271 2291 2303 2339 965 967 969 971 973 75 977 979 981 
2444 2449 2451 2457 2460 2462 2512 2518 2520 983 985 987 995 
2555 2560 2561 2629 2641 994 TO1ER ADDRESS. HEX LOCATION (000029DA) IN CSECT (I7803 ) LENGTH (2) 
0 R7 REGISTER. HEX VALUE (90000007) 809 844 847 850 883 93 907 922 928 
647 803 824 830 832 958 1057 1139 1214 943 
1227 1274 1331 1360 1369 1377 1382 1387 1389 902 TO 1G ADDRESS. HEX LOCATION (000028BC) IN CSECT (17803 ) LENGTH (4) 
1392 1394 1397 1399 1402 1404 1407 1409 1412 899 
1414 1417 1419 1422 1424 1427 1429 1432 1434 891 T0 1H ADDRESS. HEX LOCATION (0000289C) IN CSECT(I7803 ) LENGTH (2) 
1437 1439 1442 W4y W47 1449 1452 1454 1457 901 
1459 1462 1464 1467 1469 1513 1541 1842 1546 914 TO1I ADDRESS. HEX LOCATION(000028E4) IN CSECT (17803 ) LENGTH (6) 
1562 1581 1586 1587 1601 1608 1621 1632 2008 903 
2012 2093 2154 2161 2175 2191 2274 2278 2285 925 TO1K ADDRESS. HEX LOCATION(00002906) IN CSECT(I7803 ) LENGTH(6) 
2378 2419 2505 2510 2515 2548 2554 2557 2569 936 
2572 968 TO 1L ADDRESS. HEX LOCATION(0000299A) IN CSECT(1I7803 ) LENGTH (2) 
613 SCTID ADDRESS. HEX LOCATION (00002706) IN CSECT (17803 LENGTH (2) 887 
1727 1739 1817 2013 2094 2153 2156 2174 2177 970 TO 1M ADDRESS. HEX LOCATION (0000299E) IN CSECT(1T7803 ) LENGTH(2) 
1845 SCTST ADDRESS. HEX LOCATION (000039C4) IN CSECT(I7803 ) LENGTH (2) 897 
2009 2185 2190 2193 972 TO 1N ADDRESS. HEX LOCATION (000029A2) IN CSECT(I7803 ) LENGTH (2) 
1960 SENSO ADDRESS. HEX LOCATION (00003A70) IN CSECT(1I7803 ) LENGTH (4) 909 
1232 974 TO1P ADDRESS. HEX LOCATION(000029A6) IN CSECT(I7803 ) LENGTH(2) 
1744 SKDCB ADDRESS. HEX LOCATION (00903920) IN CSECT (17803 ) LENGTH (2) 911 9 947 
863 864 865 8 66 877 80 1005 2145 976 TO 10 ADDRESS. HEX LOCATION (000029AA) IN CSECT(I7803 ) LENGTH (2) 
665 START ABSOLU“&. HEX VALUE (00000003) 913 
2288 822 TOIT ADDRESS. HEX LOCATION(0000278C) IN CSECT(I7803 ) LENGTH (6) 
104 SUPSTAT ADDRESS. HEX LOCATION(000019C4) IN CSECT(I7803 ) LENGTH (1) 819 
2567 827 TO1T'1 ADDRESS. HEX LOCATION (000027A2) IN CSECT (17803 ) LENGTH(4) 
1647 TEST ADDRESS. HEX LOCATION (000030A4) IN CSECT (I7803 ) LENGTH (2) 820 82 
1359 1362 1520 1550 567 823 TO 1T2 ADDRESS. HEX LOCATION(00002792) IN CSECT(I7803 ) LENGTH (6) 
15 20 TTTF ADDRESS. HEX LOCATION (QOO02EDE) IN CSECT (I7803 ) LENGTH (6) 821 
1516 980 TO 10 ADDRESS. HEX LOCATION (000029B2) IN CSECT (17803 ) LENGTH(2) 
1518 TTTT ADDRESS. HEX LOCATION(OOO02EDA) IN CSECT (17803 ) LENGTH (2) 934 
1519 982 TO1V ADDRESS. HEX LOCATION (000029B6) IN CSECT(1I7803 ) LENGTH(2) 
1351 TTOT ADDRESS. HEX LOCATION (00002C72) IN CSECT(I7803 ) LENGTH (6) 874 94 
1345 984 TO1W ADDRESS. HEX LOCATION(000029BA) IN CSECT(1I7803 ) LENGTH (2) 
2066 TT303 ADDRESS. HEX LOCATION(O0003AF0) IN CSECT(I7803 ) LENGTH (A) 876 949 
2058 978 TO 1X ADDRESS. HEX LOCATION(000029AE) IN CSECT(1I7803 ) LENGTH(2) 
2072 TT304 ADDRESS. HEX LOCATION(00003B08) IN CSECT(I7803 ) LENGTH (4) 930 
2056 2065 2067 986 TO1Y ADDRESS. HEX LOCATION(000029BE) IN CSECT(I7803 ) LENGTH (2) 
2015 TTUY ADDRESS. X LOCATION(00003ACO) IN CSECT (17803 ) LENGTH (2) 924 
2011 940 T01Z ADDRESS. HEX LOCATION (0000293E) IN CSECT(I7803 ) LENGTH(6) 
1503 TT7A ADDRESS. HEX LOCATION(OOOO2EAC) IN CSECT(1I7803 ) LENGTH(4) 917 
1346 1351 1145 TOGA ADDRESS. HEX LOCATION(00002B22) IN CSECT (I7803 ) LENGTH (2) 
1517 TT7B ADDRESS. HEX LOCATION (Q00002ED6) IN CSECT (317803 ) LENGTH (4) 1073 
1347 1352 1147 TO4B ADDRESS. HEX LOCATION (00002B26) IN CSECT(I7803 ) LENGTH(2) 
1539 TT7C ADDRESS. HEX LOCATION(00002F30) IN CSECT (17803 ) LENGTH (4) 1082 
1348 1353 1149 TO4C ADDRESS. HEX LOCATION (00002B2A) IN CSECT (17803 ) LENGTH (2) 
1575 TT 7D ADDRESS. HEX LOCATION (00002FB2) IN CSECT(I7803 ) LENGTH (4) 1089 
1349 1354 1151 TO4D ADDRESS. HEX LOCATION(00002B2E) IN CSECT(1I7803 ) LENGTH (2) 
1356 TT7E ADDRESS. HEX LOCATION (00002C8C) IN CSECT (17803 ) LENGTH (6) 1097 
1350 1153 TO4E ADDRESS. HEX LOCATION (00002B32) IN CSECT(I7803 ) LENGTH (2) 
1388 TT7G ADDRESS. HEX LOCATION(00002D0A) IN CSECT (17803 ) LENGTH(4) 1106 
1389 1155 TO4F ADDRESS. HEX LOCATION (00002B36) IN CSECT(1I7803 ) LENGTH(2) 
1393 TT7H ADDRESS. HEX LOCATION(00002D1C) IN CSECT (17803 ) LENGTH (4) 1115 
1394 1157 TO4G ADDRESS. HEX LOCATION (00002B3A) IN CSECT (17803 ) LENGTH (2) 
1398 TT7d ADDRESS. HEX LOCATION(00002D2E) IN CSECT(1T7803 ) LENGTH(4) 1124 
1399 1159 TO4H ADDRESS. HEX LOCATION(00002B3E) IN CSECT(I7803 ) LENGTH (2) 
1403 TT 7K ADDRESS. HEX LOCATION (00002D40) IN CSECT(I7803 ) LENGTH (4) 1134 
1404 1139 TOUT ADDRESS. HEX LOCATION (00002B18) IN CSECT(I7803 ) LENGTH (4) 
1408 TT7L ADDRESS. HEX LOCATION (00002D52) IN CSECT(1I7803 ) LENGTH (4) 1146 1148 1150 56 1158 1160 162 
1409 1161 TO4K ADDRESS. HEX LOCATION(00002B42) IN CSECT (17803 ) LENGTH (2) 
1413 TT7M ADDRESS. HEX LOCATION(00002D64) IN CSECT(I7803 ) LENGTH(4) 1065 
1414 1260 TOGA ADDRESS. HEX LOCATION(O0002BE2) IN CSECT(1I7803 ) LENGTH (2) 
1418 TTIN ADDRESS. HEX LOCATION (00002D76) IN CSECT(I7803 ) LENGTH (4) 1239 124 1254 
1419 1267 TO6C ADDRESS. HEX LOCATION (OQOOO2BF4) IN CSECT(I7803 ) LENGTH (6) 
1423 TT 7P ADDRESS. HEX LOCATION(00002D88) IN CSECT(I7803 ) LENGTH (4) 1259 126 
1424 1258 TO6D ADDRESS. HEX LOCATION(OO002BDE) IN CSECT(I7803 ) LENGTH (2) 
1428 TT70 ADDRESS. HEX LOCATION (00002D9A) IN CSECT(I7803 ) LENGTH (4) 1235 
1429 1264 TOGER ADDRESS. HEX LOCATION (00Q02BEA) IN CSECT(I7803 1 LENGTH (4) 
1433 TT7R ADDRESS. HEX LOCATION(00002DAC) IN CSECT(I7803 ) LENGTH (4) 1218 1231 1233 1237 1242 1244 #1250 1252 3 
1434 1248 TO6L ADDRESS. HEX LOCATION(00002BC0) IN CSECT(1I7803 LENGTH (4) 
1438 TT7S ADDRESS. HEX LOCATION (QOO002DBE) IN CSECT(I7803 ) LENGTH(4) 1257 
1439 1507 TO7A ADDRESS. HEX LOCATION (00002EB8) IN CSECT(I7803 ) LENGTH (2) 
1443 TT 7T ADDRESS. HEX LOCATION(00002DD0) IN CSECT (17803 ) LENGTH (4) 1509 
1444 1525 TO7B ADDRESS. HEX LOCATION (O0002EF2) IN CSECT(I7803 ) LENGTH (6) 
1448 TT7U ADDRESS. HEX LOCATION (00002DE2) IN CSECT(I7803 ) LENGTH (4) 1521 
1449 1572 TO 7BB ADDRESS. HEX LOCATION (00002FA6) IN CSECT (17803 ) LENGTH (6) 
1453 TT7V ADDRESS. HEX LOCATION (00002DF4) IN CSECT (17803 ) LENGTH (4) 1568 
1454 1544 TOTC ADDRESS. HEX LOCATION (O0002F42) IN CSECT(I7803 ) LENGTH (4) 
1458 TT7W ADDRESS. HEX LOCATION(00002E06) IN CSECT (17803 ) LENGTH (4) 1547 
1459 1555 TO7CD ADDRESS. HEX LOCATION (00002F66) IN CSECT(I7803 ) LENGTH(6) 
1463 TT 7X ADDRESS. HEX LOCATION (00002F18) IN CSECT(I7803 ) LENGTH (4) 1571 1580 
1464 1580 TOTCE ADDRESS. HEX LOCATION(00002FC2) IN CSECT (17803 ) LENGTH (2) 
1468 TT7Y ADDRESS. HEX LOCATION (00002E2A) IN CSECT(I7803 ) LENGTH (4) 1635 1645 
1469 1576 TOTE ADDRESS. HEX LOCATION(00002FB6) IN CSECT(I7803 ) LENGTH (2) 
95 TUBUFF ADDRESS. HEX LOCATION (000018C2) IN CSECT (17803 ) LENGTH (1) 1578 
890 113 1638 TOTER ADDRESS. HEX LOCATION (00003088) IN CSECT(I7803 L LENGTH (4) 
96 TULAST ADDRESS. HEX LOCATION (000018C4) IN CSECT(I7803 ) LENGTH (1) 1335 1473 1475 1477 1491 1494 1506 1512 1524 
888 1527. 1530 1538 1545 1554 1561 1574 1620 
92 TUMSGWIR , ADDRESS. HEX LOCATION (000018BA) IN CSECT (317803 ) LENGTH(1) 1581 TO7G {BDDRESS- HEX LOCATION(O0002FC4) IN CSECT (17803 ) LENGTH (4) 
76 TUPARM1 jARDRESS.- HEX LOCATION(0000189A) IN CSECT(I7803 ) LENGTH(1) 1552 TOT7J ADBRESS- HEX LOCATION (OO002F5A) IN CSECT(1I7803 ) LENGTH (6) 
98 TURESUL ADDRESS. HEX LOCATION (000018C8) IN CSECT(I7803 L LFNGTH(1) 1550 TO7JII ADDRESS. HEX LOCATION (00002F52) IN CSECT (17803 ) LENGTH (6) 
810 811 812 813 814 15 816 951 952 1569 
953 954 988 989 990 991 992 993 1066 1591 TO 7K ADDRESS. HEX LOCATION (00002FE6) IN CSECT(I7803 ) LENGTH (4) 
1067 1220 1221 1222 1223 1224 1225 1264 1265 1588 
1267 1268 11269 1270 1337 1338 1339 1340 = 1341 1626 TOTL ADDRESS. HEX LOCATION (00003062) IN CSECT(I7803 ) LENGTH(4) 
1552 1555 1556 1557 1558 1570 1579 1634 1638 1585 
1639 1640 1641 1642 1643 1612 TO7M ADDRESS. HEX LOCATION (00003028) IN CSECT (17803 ) LENGTH (6) 
637 TURTN ADDRESS. HEX LOCATION (00002736) IN CSECT (17803 ) LENGTH (2) 1596 
803 1057 1214 1331 2574 1613 TOTP ADDRESS. HEX LOCATION (0000302E) IN CSECT(I7803 ) LENGTH (2) 
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1633 
1570 TO70 AODRESS. HEX LOCATION (00002F9E) IN CSECT(I7803. ) LENGTH(64) 
1618 TO7RR {RDDRESS. HEX LOCATION (00003042) IN CSECT(I7803  ) LENGTH(6) 
1531 TO7S jBDBRESS. HEX LOCATION(00002FOA) IN CSECT(I7803  ) LENGTH(6) 
1488 TO7SS {RBDRESS. HEX LOCATION(00002E62) IN CSECT(I7803  ) LENGTH(6) 
1489 TO7T ADDRESS, HEX LOCATION (00002E68) IN CSECT(I7803 ) LENGTH(6) 
1634 TOTV {BODRESS. HEX LOCATION (00003080) IN CSECT(I7803  ) LENGTH(6) 
1655 TO7W jRDDRESS. HEX LOCATION(000030A6) IN CSECT(I7803 ) LENGTH(2) 
1673 TO7HW ,RRDRESS. HEX LOCATION(000030CA) IN CSECT(I7803  ) LENGTH(2) 
1483 TO 7X ADDRESS. HEX LOCATION(00002E52) IN CSECT(I7803  ) LENGTH(4) 
1371 1379 1384 1390 1395 1400 1405 1410 141 
hice a196 1430 1435 17440 17445 1450 1455 146 
1625 TO7Y ,RDDRESS. HEX LOCATION (0000305E) IN CSECT(I7803  ) LENGTFE(4) 
1567 TO7Z  BDBRESS. HEX LOCATION (00002F94) IN CSECT(I7803 ) LENGTH(6) 
955 T1END ADDRESS. HEX LOCATION (0000297A) IN CSECT(I7803  ) LENGTH(2) 
1271 T6END ,RBDRESS. HEX LOCATION(00002C0C) IN CSECT(I7803  ) LENGTH(6) 
1609 T7AA ADDRESS. HEX LOCATION (0000301E) IN CSECT(I7803  ) LENGTH(4) 
1559 T7END ADDRESS. HEX, LOCATION (00002F7E) IN CSECT(I7803  ) LENGTH(6) 
803 T7801 ADDRESS. HEX LOCATION (00002746) IN CSECT(I7803 ) LENGTH(4) 
1057 T7804 ADDRESS. HEX LOCATION (000029F6) IN CSECT(I7803 ) LENGTH(4) 
1214 T7806 ADDRESS. HEX LOCATION (00002B46) IN CSECT(T7803 ) LENGTH(4) 
1331 T7807 ADDRESS, HEX LOCATION(00002C22) IN CSECT(I7803 ) LENGTH(4) 
437 452 467 uUB2. 497 
1472 T807 ADDRESS. HEX LOCATION (00002E38) IN CSECT(I7803 ) LENGTH(4) 
1777 VRDCB > ADDRESS. HEX LOCATION (00003950) IN CSECT(I7803 ) LENGTH(2) 
1799 WKDCB ABDRESS.. HEX LOCATION (00003970) IN CSECT(I7803  ) LENGTH(2) 
1935 WRAP ADDRESS, HEX LOCATION (00003A20) IN CSECT(I7803. ) LENGTH(4) 
1677 WRBUF ADDRESS. HEX LOCATION(000030D0) IN CSECT(17803  ) LENGTH(1) 
1357 1368 1376 1381 1386 1391 1396 1401 140 
1411 1416 1421 1426 14631 1436 1441 #1446 145 
1456 1461 1466 1582 1678 
1766 WRDCB ADDRESS. HEX LOCATION (00003940) IN CSECT(T7803  ) LFNGTH(2) 
1357. 1498 1499 1500 1501 1502 1597 2169 
1838 WRSID ADDRESS. HEX LOCATION (00003926) IN CSECT(T7803  ) LENGTH(2) 
1717. 1806 2018 2095 2197 01 
1710 WSDCB ADDRESS. HEX LOCATION(000038F0) IN CSECT(I7803  ) LENGTH(2) 
2200 2201 2203 2204 
1842 WSIDT ADDRESS. HEX LOCATION(000039BE) IN CSECT(I7803  ) LENGTH(2) 
2010 2181 2204 
589 XE ABSOLUTE. HEX VALUE (00009024) 
848 870 881 891 905 920 926 941 2381 
2443 2628 
587 XI jABSOLOTE. HEX VALUE (00000022) 
2262 XTO ADDRESS. HEX LOCATION (O0003BEC) IN CSECT(I7803  ) LENGTH(4) 
998 2146 2149 2157 2164 2167 2170 2178 2182 
2186 2194 2198 2202 2205 2208 
2443 XIOCK > ADDRESS. HEX LOCATION(00003CB4) IN CSECT(I7803  ) LENGTH(2) 
2450 XIOCO ADDRESS. HEX LOCATION (00003CC6) IN CSECT(I7803  ) LENGTH(2) 
2267 XIOCS ADDRESS. HEX LOCATION (000035 F6) IN CSECT (17803 ) LENGTH (6) 
3849 3882 892 906 921 27 942 ‘1472 1553 
2452 XIOCV oADDRESS. HEX LOCATION(00003CCA) IN CSECT(I7803  ) LENGTH(2) 
2461 XIOCX > ADDRESS. HEX LOCATION(O00003CE4) IN CSECT(IT7803  ) LENGTH(4) 
2336 XIOER > ADDRESS. HEX LOCATION (00003C52) IN CSECT(I7803 ) LENGTH(2) 
2271 XI01 oRDDRESS. HEX LOCATION (00003C06) IN CSECT(I7803  ) LENGTH(4) 
2284 XIO2 > ADDRESS. HEX LOCATION (00003C2C) IN CSECT(I7803. ) LENGTH(2) 
2296 XI08 > ADDRESS. HEX LOCATION (00003C40) IN CSECT(I7803  ) LENGTH(2) 
18 20 ZEROO ADDRESS, HEX LOCATION (00003990) IN CSECT(I7803  ) LENGTH(2) 


FOO CK AG a a AO ao tok tok toto LAST PAGE 


we 








or or re ee a ee a a oe on oe ae 





( Lo - = 


PAGE 15A 
COPYRIGHT IBM CORP 1976 


LI803) A CHANNEL/4 962 P/N=6825355 EC=374888 


CROSS-REFERENCE LISTING 


PAGE 15 
1976 


SO FCCC I IO I OIRO COR I a kk ico klk ak took ic ic 


